<% PageSecure = False %>
<!-- #include file=data/vbsecure.asp -->
<%
iPID = GetVariable("ID1", -1, "int")
iQty = GetVariable("Qty", 1, "int")
sUser = GetVariable("Username", "", "string")
sPassword = GetVariable("Password", "", "string")
if Session("FinalPage") <> 1 then Session("FinalPage") = 0
dim arr(100,2)

if Action = "emptycart" then
      session.abandon()
      response.redirect("cart.asp")
elseif Action = "updatecart" then

      'Remove any checked items
      if len(request.form("Remove")) > 0 then
       if instr(request.form("Remove"),", ") > 0 then
        arrTmp = split(request.form("Remove"),", ")
        for i=0 to ubound(arrTmp)
         arrTmp1 = split(arrTmp(i),"*~*")
         call deleteItem(arrTmp1(0),arrTmp1(1),arrTmp1(2))
        next
       elseif instr(request.form("Remove"),"*~*") then
        arrTmp1 = split(request.form("Remove"),"*~*")
        call deleteItem(arrTmp1(0),arrTmp1(1),arrTmp1(2))
       end if
      else
       ' Build array to display items in cart into a table
       iWeight = 0
       iPrice = 0
       sItems = session("Items")
       if len(sItems) > 0 then
         if instr(sItems,"*|*") then
          c = split(sItems,"*|*")
          for i=0 to ubound(c)
           tmpVal = 0
           d = split(c(i),"*~*")
           tmpVal2 = d(0) 'quantity
           tmpVal1 = d(1) 'product id
           tmpVal3 = d(2) 'item details

           'Get new quantity
           execute "tmpVal = request.form(""Qty_" & i & """)"
           'Get item detail strings if avail
           execute "sTmp1 = request.form(""ItemDetails1_" & i & """)"
           execute "sTmp2 = request.form(""ItemDetails2_" & i & """)"
           execute "sTmp3 = request.form(""ItemDetails3_" & i & """)"
           execute "sTmp4 = request.form(""ItemDetails4_" & i & """)"

           if len(tmpVal) > 0 then
            arr(i,0) = tmpVal
           else
            arr(i,0) = tmpVal2
           end if

           sTmp = ""
           if len(sTmp1) > 0 then
            sTmp = "Item Detail 1: " & sTmp1 & ";"
           end if
           if len(sTmp2) > 0 then
            sTmp = sTmp & " Item Detail 2: " & sTmp2 & ";"
           end if
           if len(sTmp3) > 0 then
            sTmp = sTmp & " Item Detail 3: " & sTmp3 & ";"
           end if
           if len(sTmp4) > 0 then
            sTmp = sTmp & " Item Detail 4: " & sTmp4 & ";"
           end if

           sItems = replace(sItems, tmpVal2 & "*~*" & tmpVal1 & "*~*" & tmpVal3, arr(i,0) & "*~*" & tmpVal1 & "*~*" & sTmp)
           arr(i,1) = tmpVal1
           session("Items") = replace(session("Items"), tmpVal2 & "*~*" & tmpVal1 & "*~*" & tmpVal3, arr(i,0) & "*~*" & tmpVal1 & "*~*" & sTmp)
          next
         elseif instr(sItems,"*~*") then
          tmpVal = 0
          d = split(sItems,"*~*")
          tmpVal2 = d(0) 'quantity
          tmpVal1 = d(1) 'product id
          tmpVal3 = d(2) 'item details

          'Get new quantity
           execute "tmpVal = request.form(""Qty_0"")"
           'Get item detail strings if avail
           execute "sTmp1 = request.form(""ItemDetails1_0"")"
           execute "sTmp2 = request.form(""ItemDetails2_0"")"
           execute "sTmp3 = request.form(""ItemDetails3_0"")"
           execute "sTmp4 = request.form(""ItemDetails4_0"")"

           if len(tmpVal) > 0 then
            arr(0,0) = tmpVal
           else
            arr(0,0) = tmpVal2
           end if

           sTmp = ""
           if len(sTmp1) > 0 then
            sTmp = "Item Detail 1: " & sTmp1 & ";"
           end if
           if len(sTmp2) > 0 then
            sTmp = sTmp & " Item Detail 2: " & sTmp2 & ";"
           end if
           if len(sTmp3) > 0 then
            sTmp = sTmp & " Item Detail 3: " & sTmp3 & ";"
           end if
           if len(sTmp4) > 0 then
            sTmp = sTmp & " Item Detail 4: " & sTmp4 & ";"
           end if

           sItems = replace(sItems, tmpVal2 & "*~*" & tmpVal1 & "*~*" & tmpVal3, arr(0,0) & "*~*" & tmpVal1 & "*~*" & sTmp)
           arr(0,1) = tmpVal1
           session("Items") = replace(session("Items"), tmpVal2 & "*~*" & tmpVal1 & "*~*" & tmpVal3, arr(0,0) & "*~*" & tmpVal1 & "*~*" & sTmp)
         end if
       end if
      end if

      Action = ""
elseif Action = "login" then
      s = "SELECT Email,UserID,Password,UID,UserType FROM Cart_Users WHERE UserID = '" & sUser & "';"
      SET r = CreateRS(s)
      if isnull(r) or r.eof then
       sMessage = "Username not found."
      else
       if sPassword = decrypt(r("Password"),key) then
        Session("LoggedIn") = 1
        Session("UserLevel") = r("UserType")
        Session("UID") = r("UID")
        Response.Redirect("billing_shipping.asp")
       else
        sMessage = "Login failed, try again."
       end if
      end if
end if

if Action = "viewcart" or Action = "" then
      Action = "viewcart"
end if

if len(Session("OID")) > 0 and Session("OID") <> -1 then
  sNow = now()
  iOID = Session("OID")

  ' Build item list
  sItems = session("Items")

  if len(sItems) > 0 then
    if instr(sItems,"*|*") then
     c = split(sItems,"*|*")
     for i=0 to ubound(c)
      d = split(c(i),"*~*")
      arr(i,0) = d(0)
      arr(i,1) = d(1)
      arr(i,2) = d(2)
     next
    elseif instr(sItems,"*~*") then
     d = split(sItems,"*~*")
     arr(i,0) = d(0)
     arr(i,1) = d(1)
     arr(i,2) = d(2)
    end if
  end if

  ' Put item list into string
  if iOID <> -1 then
   s = "DELETE FROM Cart_Orders_Items WHERE OID = " & Session("OID")
   ExecuteSQL(s)
  end if

  for i=0 to ubound(arr)
   if len(arr(i,0)) > 0 then
     iMultiType = getValue("MultiType","Cart_Products","PID",arr(i,1))
     iCIDTmp = getValue("CID","Cart_Catagories_Index","PID",arr(i,1))
     dBasePriceTmp = getValue("BasePrice","Cart_Products","PID",arr(i,1))
     dBasePrice = dBasePriceTmp
     dMultiPriceTmp = getValue("MultiPrice","Cart_Products","PID",arr(i,1))
     dWeight = dWeight + (getValue("ProductWeight","Cart_Products","PID",arr(i,1)) * arr(i,0))

     if cint(iMultiType) = 0 then 'multiple in catagory,limit 2
      if dMultiPriceTmp > 0 and dMultiPriceTmp <> "" then
       for z=0 to ubound(arr)
        if len(arr(z,1)) > 0 then
         iTmp = getValue("CID","Cart_Catagories_Index","PID",arr(z,1))
         if ((arr(z,1) <> arr(i,1)) and (iTmp = iCIDTmp) and (instr(sDiscApplied,"|" & arr(z,1) & "|") = 0) and (iDiscApplied < 2)) then
          sDiscApplied = sDiscApplied & "|" & trim(arr(z,1)) & "|"
          iDiscApplied = iDiscApplied + 1
          dBasePrice = dMultiPriceTmp
          if iDiscApplied = 2 then iDiscApplied = 0
          exit for
         elseif (arr(z,1) = arr(i,1)) and (arr(z,0) > 1) then
          sDiscApplied = sDiscApplied & "|" & trim(arr(z,1)) & "|"
          iDiscApplied = iDiscApplied + 1
          dBasePrice = dMultiPriceTmp
          if iDiscApplied = 2 then iDiscApplied = 0
          exit for
         end if
        end if
       next
      end if
     elseif cint(iMultiType) = 1 then 'multiple of same product in cart
      if dMultiPriceTmp > 0 and dMultiPriceTmp <> "" then
       if arr(i,0) >= 2 then
         dBasePriceTmp = dMultiPriceTmp
       end if
      end if
     end if

     dSubTotalTmp = 0                                              
     if arr(i,0) > 1 then                                          
      if cint(iMultiType) = 0 then                                 
       dSubTotalTmp = dSubTotalTmp + (dBasePrice * (arr(i,0)))     
      elseif cint(iMultiType) = 1 then                             
       dSubTotalTmp = dSubTotalTmp + (dBasePrice)                  
       dSubTotalTmp = dSubTotalTmp + (dBasePriceTmp * (arr(i,0)-1))
      end if                                                       
     else                                                          
      dSubTotalTmp = dSubTotalTmp + (dBasePrice)                   
     end if 

     if iOID <> -1 then
      s = "INSERT INTO Cart_Orders_Items (OID,PID,Qty,Price,ItemDetail,Status,Created,Modified)" & _
          " VALUES (" & iOID & "," & arr(i,1) & "," & arr(i,0) & "," & dSubTotalTmp & "," & _
          "'" & arr(i,2) & "',2,#" & sNow & "#,#" & sNow & "#);"
      ExecuteSQL(s)
     end if
   end if
  next
end if

sub deleteItem(a,b,c)
 if b <> -1 then
  session("Items") = replace(session("Items"), a & "*~*" & b & "*~*" & c, "")
  if len(session("Items")) > 0 and instr(session("Items"),"*|*") > 0 then
   if left(Session("Items"),3) = "*|*" then Session("Items") = right(Session("Items"),len(Session("Items")) -3)
   if right(Session("Items"),3) = "*|*" then Session("Items") = left(Session("Items"),len(Session("Items")) -3)
   Session("Items") = replace(Session("Items"),"*|**|*","*|*")
  end if
 end if
end sub

Function checkItem(iTmp3)
 iDetails1 = getValue("ItemDetails1","Cart_Products","PID",iTmp3)
 iDetails2 = getValue("ItemDetails2","Cart_Products","PID",iTmp3)
 iDetails3 = getValue("ItemDetails3","Cart_Products","PID",iTmp3)
 iDetails4 = getValue("ItemDetails4","Cart_Products","PID",iTmp3)
 if iDetails1 = "" or isnull(iDetails1) then iDetails1 = 0
 if iDetails2 = "" or isnull(iDetails2) then iDetails2 = 0
 if iDetails3 = "" or isnull(iDetails3) then iDetails3 = 0
 if iDetails4 = "" or isnull(iDetails4) then iDetails4 = 0
 checkItem = cint(iDetails1) + cint(iDetails2) + cint(iDetails3) + cint(iDetails4)
End Function

function getValue(f,t,q,id)
  if len(id) > 0 and len(f) > 0 and len(t) > 0 and len(q) > 0 then
   sSQL = "SELECT " & f & " FROM " & t & " WHERE " & q & " = " & id & ";"
   set rs = CreateRS(sSQL)
   if isnull(rs) or rs.eof then
    getValue = ""
   else
    getValue = rs(0)
   end if
   rs.close
   set rs = nothing
  end if
end function

%>
<HTML>
<HEAD>
<TITLE>:: Designer CD-R ::</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_nbGroup(event, grpName) { //v6.0
  var i,img,nbArr,args=MM_nbGroup.arguments;
  if (event == "init" && args.length > 2) {
    if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
      img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
      if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array();
      nbArr[nbArr.length] = img;
      for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
        if (!img.MM_up) img.MM_up = img.src;
        img.src = img.MM_dn = args[i+1];
        nbArr[nbArr.length] = img;
    } }
  } else if (event == "over") {
    document.MM_nbOver = nbArr = new Array();
    for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])? args[i+1] : img.MM_up);
      nbArr[nbArr.length] = img;
    }
  } else if (event == "out" ) {
    for (i=0; i < document.MM_nbOver.length; i++) {
      img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; }
  } else if (event == "down") {
    nbArr = document[grpName];
    if (nbArr)
      for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; }
    document[grpName] = nbArr = new Array();
    for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
      nbArr[nbArr.length] = img;
  } }
}
//-->
</script>
<link href="style.css" rel="stylesheet" type="text/css">
<link href="data/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY LEFTMARGIN=0 MARGINWIDTH=0 onLoad="MM_preloadImages('images/nav__06.gif','images/nav__01.gif','images/nav__02.gif','images/nav__03.gif','images/nav__04.gif','images/nav__07.gif')">
<table width="794" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/top.gif" width="794" height="110" border="0" usemap="#Map"></td>
  </tr>
</table>
<table width="794" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#088AD6">
  <tr>
    <td width="168" valign="top" bgcolor="#088AD6">
    <table width="168" height="351" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="16">&nbsp;</td>
      </tr>
      <tr>
        <td height="20" align="center" valign="top"><table width="156" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="8" bgcolor="#E3DFDF"></td>
          </tr>
          <tr>
            <td><table border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td><a href="<%=VbURL%>index.htm" target="_top" onClick="MM_nbGroup('down','group1','home','',1)" onMouseOver="MM_nbGroup('over','home','images/nav__07.gif','',1)" onMouseOut="MM_nbGroup('out')"><img name="home" src="images/nav_07.gif" border="0" alt="" onLoad=""></a></td>
              </tr>
              <tr>
                <td><a href="<%=VbURL%>cart/productlist.asp" target="_top" onClick="MM_nbGroup('down','group1','design_gallery2','',1)" onMouseOver="MM_nbGroup('over','design_gallery2','images/nav__01.gif','',1)" onMouseOut="MM_nbGroup('out')"><img name="design_gallery2" src="images/nav_01.gif" border="0" alt="" onLoad=""></a></td>
              </tr>
              <!--<tr>
                <td><a href="<%=VbURL%>series.htm" target="_top" onClick="MM_nbGroup('down','group1','customize_it','',1)" onMouseOver="MM_nbGroup('over','customize_it','images/nav__02.gif','',1)" onMouseOut="MM_nbGroup('out')"><img src="images/nav_02.gif" alt="" name="customize_it" width="156" height="35" border="0" onload=""></a></td>
              </tr>
             --> <tr>
                <td><a href="<%=VbURL%>ideas.htm" target="_top" onClick="MM_nbGroup('down','group1','ideas','',1)" onMouseOver="MM_nbGroup('over','ideas','images/nav__03.gif','',1)" onMouseOut="MM_nbGroup('out')"><img src="images/nav_03.gif" alt="" name="ideas" width="156" height="36" border="0" onload=""></a></td>
              </tr>
              <tr>
                <td><a href="<%=VbURL%>school_fundraiser.htm" target="_top" onClick="MM_nbGroup('down','group1','school_fundraiser','',1)" onMouseOver="MM_nbGroup('over','school_fundraiser','images/nav__04.gif','',1)" onMouseOut="MM_nbGroup('out')"><img src="images/nav_04.gif" alt="" name="school_fundraiser" width="156" height="35" border="0" onload=""></a></td>
              </tr>
              <tr>
                <td><a href="<%=VbURL%>contact_us.htm" target="_top" onClick="MM_nbGroup('down','group1','contact_us','',1)" onMouseOver="MM_nbGroup('over','contact_us','images/nav__06.gif','',1)" onMouseOut="MM_nbGroup('out')"><img src="images/nav_06.gif" alt="" name="contact_us" width="156" height="35" border="0" onload=""></a></td>
              </tr>
            </table></td>
          </tr>
          <tr>
            <td><img src="images/nav_08.jpg" width="156" height="20"></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="35" valign="bottom" class="text" align="center">
         <div style="width:155px;text-align:left;">
         <span class="sign_up">Sign Up for Special Offers</span>
         </div>
        </td>
      </tr>
      <tr>
        <td valign="middle"><table width="168" height="30" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7">&nbsp;</td>
            <td width="119"><form name="mailinglist" method="post" action="<%= VbURL %>mailinglist.php">
              <input name="email" type="text" class="newsletter" size="18" value="Enter email address" onclick="this.select();">
            </td>
            <td width="35" height="30" align="center" valign="top">
             <img src="images/go_button.gif" width="25" height="23" style="cursor:pointer;" onclick="if (document.mailinglist.email.value.indexOf('@') != -1 && document.mailinglist.email.value != '') { document.mailinglist.submit() } else { alert('Please enter your email address.') };">
            </td>
            <td width="7" align="left" valign="middle">&nbsp;</td>
            </form>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="16" align="left" valign="bottom">&nbsp;</td>
      </tr>
    </table></td>
    <td width="626" align="left" valign="top">
     <form method="post" name="form1">
     <table cellpadding="0" cellspacing="0" border="0" width="610">
      <tr>
        <td width="581" height="10">&nbsp;</td>
      </tr>
      <tr>
        <td bgcolor="#53ADE2"><img src="images/shopping_cart.gif" width="294" height="46"></td>
      </tr>
      <tr>
        <td height="3" align="left" valign="top" bgcolor="#088AD6"></td>
      </tr>
      <tr>
        <td height="20" align="left" valign="top" bgcolor="#80B743"><table width="610" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="23">&nbsp;</td>
            <td align="center" valign="middle" class="title1">Item </td>
            <td>&nbsp;</td>
            <td align="center" valign="middle"><span class="title1">Price</span></td>
            <td>&nbsp;</td>
            <td align="center" valign="middle"><span class="title1">Quantity</span></td>
            <td>&nbsp;</td>
            <td align="center" valign="middle"><span class="title1">Total</span></td>
            <td align="center" valign="middle">&nbsp;</td>
            <td align="center" valign="middle"><span class="title1">Remove</span></td>
          </tr>
          <%
          ' Build array to display items in cart into a table
          iWeight = 0
          iPrice = 0
          sItems = session("Items")

          if len(sItems) > 0 then
            if instr(sItems,"*|*") then
             c = split(sItems,"*|*")
             for i=0 to ubound(c)
              d = split(c(i),"*~*")
              arr(i,0) = d(0)
              arr(i,1) = d(1)
              arr(i,2) = d(2)
             next
            elseif instr(sItems,"*~*") then
             d = split(sItems,"*~*")
             arr(0,0) = d(0)
             arr(0,1) = d(1)
             arr(0,2) = d(2)
            end if
          end if

          dTotal = 0
          dShipping = 0
          dSubTotal = 0
          tmpArr = split(session("Items"),"*~*")
          iNum = ubound(tmpArr)

          bCart = False
          sDiscApplied = ""
          iDiscApplied = 0
          for i=0 to ubound(arr)
           if len(arr(i,0)) > 0 then
            bCart = True
            iMultiType = getValue("MultiType","Cart_Products","PID",arr(i,1))
            iCIDTmp = getValue("CID","Cart_Catagories_Index","PID",arr(i,1))
            dBasePriceTmp = getValue("BasePrice","Cart_Products","PID",arr(i,1))
            dBasePrice = dBasePriceTmp
            dMultiPriceTmp = getValue("MultiPrice","Cart_Products","PID",arr(i,1))

            if cint(iMultiType) = 0 then 'multiple in catagory,limit 2
             if dMultiPriceTmp > 0 and dMultiPriceTmp <> "" then
              for z=0 to ubound(arr)
               if len(arr(z,1)) > 0 then
                iTmp = getValue("CID","Cart_Catagories_Index","PID",arr(z,1))
                if ((arr(z,1) <> arr(i,1)) and (iTmp = iCIDTmp) and (instr(sDiscApplied,"|" & arr(z,1) & "|") = 0) and (iDiscApplied < 2)) then
                 sDiscApplied = sDiscApplied & "|" & trim(arr(z,1)) & "|"
                 iDiscApplied = iDiscApplied + 1
                 dBasePrice = dMultiPriceTmp
                 if iDiscApplied = 2 then iDiscApplied = 0
                 exit for
                elseif (arr(z,1) = arr(i,1)) and (arr(z,0) > 1) then
                 sDiscApplied = sDiscApplied & "|" & trim(arr(z,1)) & "|"
                 iDiscApplied = iDiscApplied + 1
                 dBasePrice = dMultiPriceTmp
                 if iDiscApplied = 2 then iDiscApplied = 0
                 exit for
                end if
               end if
              next
             end if
            elseif cint(iMultiType) = 1 then 'multiple of same product in cart
             if dMultiPriceTmp > 0 and dMultiPriceTmp <> "" then
              if arr(i,0) >= 2 then
                dBasePriceTmp = dMultiPriceTmp
              end if
             end if
            end if

            sImg = getValue("ProductThumb","Cart_Products","PID",arr(i,1))

            'Resize thumbnail
            if gfxSpex(Server.Mappath("images/") & "\" & sImg, iWidth, iHeight, c, strType) = true then
             if iWidth > 200 or iHeight > 200 then
              iWidth = iWidth * .3
              iHeight = iHeight * .3
             else
              iWidth = iWidth * .50
              iHeight = iHeight * .50
             end if
             bResize = True
            else
             bResize = False
            end if
          %>
          <tr bgcolor="#53ADE2">
            <td width="20">&nbsp;</td>
            <td align="center" valign="middle" class="title1">
              <% if len(sImg) > 0 then %>
              <img src="images/<%= sImg %>" border="0" <% if bResize then %>height="<%= iHeight %>" width="<%= iWidth %>"<% end if %>>
              <br>
              <% end if %>
              <span class="text"><%= getValue("Title","Cart_Products","PID",arr(i,1)) %></span>
            </td>
            <td width="20">&nbsp;</td>
            <td align="center" valign="middle" class="text">
            <%
            if cint(iMultiType) = 0 or arr(i,0) <= 1 then
             response.write formatcurrency(dBasePrice,2)
            elseif cint(iMultiType) = 1 then
             response.write formatcurrency(dBasePrice,2) & " x 1<br>"
             if arr(i,0) > 1 then
              response.write formatcurrency(dBasePriceTmp,2) & " x " & arr(i,0) -1
             end if
            end if
            %>
            </td>
            <td width="20">&nbsp;</td>
            <td align="center" valign="middle">
              <input type=text class="field" name=Qty_<%= i %> size=2 OnFocus="this.select();" OnBlur="validateNum(this, '', 0);" value="<%= arr(i,0) %>" class="box">
            </td>
            <td width="20">&nbsp;</td>
            <td align="center" valign="middle" class="text">
            <%
            dSubTotalTmp = 0
            if arr(i,0) > 1 then
             if cint(iMultiType) = 0 then
              dSubTotalTmp = dSubTotalTmp + (dBasePrice * (arr(i,0)))
             elseif cint(iMultiType) = 1 then
              dSubTotalTmp = dSubTotalTmp + (dBasePrice)
              dSubTotalTmp = dSubTotalTmp + (dBasePriceTmp * (arr(i,0)-1))
             end if
            else
             dSubTotalTmp = dSubTotalTmp + (dBasePrice)
            end if
            %>
            <%= formatcurrency(dSubTotalTmp,2) %>
            </td>
            <td width="20" align="center" valign="middle">&nbsp;</td>
            <td align="center" valign="middle">
             <input type="checkbox" name="Remove" value="<%= arr(i,0) %>*~*<%= arr(i,1) %>*~*<%= arr(i,2) %>">
            </td>
          </tr>
          <%
          'Get item details strings
          s1 = arr(i,2)
          s1End = instr(s1,";") - 16
          s2 = replace(s1, mid(s1,1,instr(s1,";") + 1), "")
          s2End = instr(s2,";") - 16
          s3 = replace(s2, mid(s2,1,instr(s2,";") + 1), "")
          s3End = instr(s3,";") - 16
          s4 = replace(s3, mid(s3,1,instr(s3,";") + 1), "")
          s4End = instr(s4,";") - 16
          s1 = mid(s1, 16, s1End)
          s2 = mid(s2, 16, s2End)
          s3 = mid(s3, 16, s3End)
          s4 = mid(s4, 16, s4End)

          iItemDetailsTmp = checkItem(arr(i,1))
          iPIDField1Length = getValue("ItemDetails1Length","Cart_Products","PID",arr(i,1))
          iPIDField2Length = getValue("ItemDetails2Length","Cart_Products","PID",arr(i,1))
          iPIDField3Length = getValue("ItemDetails3Length","Cart_Products","PID",arr(i,1))
          iPIDField4Length = getValue("ItemDetails4Length","Cart_Products","PID",arr(i,1))
          %>
          <% if len(arr(i,2)) > 1 then %>
          <tr bgcolor="#53ADE2">
            <td height="3"></td>
            <td colspan="9" align="right" class="text">
            Line #1:&nbsp;<input class="field" type="text" name="ItemDetails1_<%= i %>" maxlength="<%= iPIDField1Length %>" size="15" value="<%= s1 %>">
            <% if iItemDetailsTmp >= 2 then %>
            &nbsp;#2:&nbsp;<input class="field" type="text" name="ItemDetails2_<%= i %>" maxlength="<%= iPIDField2Length %>" size="15" value="<%= s2 %>">
            <% end if %>
            <% if iItemDetailsTmp >= 3 then %>
            &nbsp;#3:&nbsp;<input class="field" type="text" name="ItemDetails3_<%= i %>" maxlength="<%= iPIDField3Length %>" size="15" value="<%= s3 %>">&nbsp;
            <% end if %>
            <% if iItemDetailsTmp >= 4 then %>
            &nbsp;#4:&nbsp;<input class="field" type="text" name="ItemDetails4_<%= i %>" maxlength="<%= iPIDField4Length %>" size="15" value="<%= s4 %>">&nbsp;
            <% end if %>
            </td>
          </tr>
          <% end if %>
          <tr bgcolor="#53ADE2">
            <td height="3"></td>
            <td align="center" valign="middle" class="text"></td>
            <td></td>
            <td align="center" valign="middle" class="text"></td>
            <td></td>
            <td align="center" valign="middle"></td>
            <td></td>
            <td align="center" valign="middle"></td>
            <td align="center" valign="middle"></td>
            <td></td>
          </tr>
          <tr>
            <td height="2" bgcolor="#088AD6"></td>
            <td align="center" valign="middle" bgcolor="#088AD6" class="text"></td>
            <td bgcolor="#088AD6"></td>
            <td align="center" valign="middle" bgcolor="#088AD6" class="text"></td>
            <td bgcolor="#088AD6"></td>
            <td align="center" valign="middle" bgcolor="#088AD6"></td>
            <td bgcolor="#088AD6"></td>
            <td align="center" valign="middle" bgcolor="#088AD6"></td>
            <td align="center" valign="middle" bgcolor="#088AD6"></td>
            <td bgcolor="#088AD6"></td>
          </tr>
          <%
            if arr(i,0) > 1 then
             if cint(iMultiType) = 0 then
              dSubTotal = dSubTotal + (dBasePrice * (arr(i,0)))
             elseif cint(iMultiType) = 1 then
              dSubTotal = dSubTotal + (dBasePrice)
              dSubTotal = dSubTotal + (dBasePriceTmp * (arr(i,0)-1))
             end if
            else
             dSubTotal = dSubTotal + (dBasePrice)
            end if

            dWeight = dWeight + (getValue("ProductWeight","Cart_Products","PID",arr(i,1)) * arr(i,0))
           end if
          next

          if len(Session("OID")) > 0 then
           s = "UPDATE Cart_Orders SET SubTotal = " & dSubTotal & " WHERE OID = " & Session("OID")
           ExecuteSQL(s)
          end if

          if NOT bCart then %>
          <tr>
            <td colspan=10 height="35" align="center" class="text">
            There are no items in your cart, click Continue Shopping to Add Items.
            </td>
          </tr>
          <% end if %>

          <tr>
            <td bgcolor="#53ADE2">&nbsp;</td>
            <td align="center" valign="middle" bgcolor="#53ADE2" class="text">&nbsp;</td>
            <td bgcolor="#53ADE2">&nbsp;</td>
            <td align="center" valign="middle" bgcolor="#53ADE2" class="text">&nbsp;</td>
            <td bgcolor="#53ADE2">&nbsp;</td>
            <td align="center" valign="middle" bgcolor="#53ADE2">&nbsp;</td>
            <td bgcolor="#53ADE2">&nbsp;</td>
            <td align="center" valign="middle" bgcolor="#53ADE2">&nbsp;</td>
            <td align="center" valign="middle" bgcolor="#53ADE2">&nbsp;</td>
            <td bgcolor="#53ADE2">&nbsp;</td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="80" align="left" valign="top" bgcolor="#53ADE2"><table width="610" height="80" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="10"></td>
            <td valign="top"><table width="600" height="100" border="0" cellpadding="0" cellspacing="0">
              <tr valign="middle">
                <td width="150" align="center" valign="bottom"><img src="images/update.gif" width="87" height="21" style="cursor:pointer;" onclick="<% if bCart then %>setAction('updatecart',-1); return false;<% else %>alert('You need to add items to your bag to continue.');<% end if %>"></td>
                <td width="280" align="left" valign="bottom"><img src="images/contiune_shopping.gif" width="141" height="20" style="cursor:pointer;" onclick="top.location.href = '<% if len(Session("ContinuePage")) > 0 then %><%= Session("ContinuePage") %><% else %><%=VbURL%>index.htm<% end if %>';"></td>
                <td width="100" align="left" valign="middle" class="text"><strong>Subtotal </strong></td>
                <td width="70" align="left" valign="middle" class="text">
                <strong><%= formatcurrency(dSubTotal,2) %></strong>
                </td>
                <% Session("SubTotal") = dSubTotal %>
              </tr>
              <tr valign="middle">
                <td width="150" align="center" class="text">If you have changed<br>
                  quantities, or removed <br>
                  items, click update </td>
                <td width="280" align="center"><br></td>
                <td width="100" align="center" valign="top">&nbsp;</td>
                <td width="50" align="center">&nbsp;</td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="20" align="left" valign="top" bgcolor="#53ADE2">&nbsp;</td>
      </tr>
      <tr>
        <td height="3" align="left" valign="top" bgcolor="#088AD6"></td>
      </tr>
      <tr>
        <td height="20" align="right" valign="bottom" bgcolor="#53ADE2"><table width="610" height="100" border="0" cellpadding="0" cellspacing="0">
            <tr valign="middle">
              <td width="10" align="center"><br></td>
              <td width="600" align="left" valign="top">                <TABLE class=innertext2 cellSpacing=0 cellPadding=0 width=600 
                  border=0>
                <TBODY>
                  <TR background="images/dot.jpg">
                    <TD colSpan=4></TD>
                  </TR>
                  <TR>
                    <TD colSpan=4></TD>
                  </TR>
                  <TR>
                    <TD colSpan=4></TD>
                  </TR>
                  <TR>
                    <TD colSpan=4 height=35><STRONG class="text">Checkout Options</STRONG></TD>
                  </TR>
                  <%
                  if len(Session("UID")) > 0 then
                   s = "SELECT Firstname FROM Cart_Users WHERE UID = " & Session("UID")
                   SET r = CreateRS(s)
                   if isnull(r) or r.eof then
                    sName = ""
                   else
                    sName = r(0)
                   end if
                  end if

                  if len(sName) > 0 then %>
                  <tr>
                    <td colspan="2" class="text" valign="top">
                    Welcome Back <%= sName %>! You're already signed in so click the button below to verify your information and checkout.<br><br>
                    <%
                    if Session("FinalPage") = 1 then
                     sPage = "payment.asp"
                    else
                     sPage = "billing_shipping.asp"
                    end if
                    %>
                    <img src="images/proceed.gif" style="cursor:pointer;" onclick="<% if bCart then %>top.location.href = '<%= sPage %>';<% else %>alert('You need to add items to your bag to continue.');<% end if %>">
                    </td>
                  </tr>
                  <% elseif Session("FinalPage") = 1 then %>
                  <tr>
                    <td colspan="2" valign="top" class="text">
                    Click the button below to verify your information and checkout.<br><br>
                    <%
                    if Session("FinalPage") = 1 then
                     sPage = "payment.asp"
                    else
                     sPage = "billing_shipping.asp"
                    end if
                    %>
                    <img src="images/proceed.gif" style="cursor:pointer;" onclick="<% if bCart then %>top.location.href = '<%= sPage %>';<% else %>alert('You need to add items to your bag to continue.');<% end if %>">
                    </td>
                  </tr>
                  <% else %>
                  <TR>
                    <TD vAlign=top colSpan=2>
                      <P class="text"><STRONG>New Customers &amp; Guests</STRONG><BR>Checkout without Signing in</P>
                      <p class="text">You don't need to sign in to purchase from designercdr.com </p>
                      <P class="text">You will have the option to register and save your information later during the checkout process</P></TD>
                    <TD vAlign=top width=90 ></TD>
                    <TD width=250 vAlign=top>
                      <P><STRONG class="text">Registered Customers</STRONG><BR>
                          <span class="text">Sign in for Faster Checkout</span></P>
                      <P class="text">Sign in information is case sensitive </P>
                      <% if len(sMessage) > 0 then %><p><FONT color="red"><%= sMessage %></FONT></p><% end if %>
                      <P><span class="text">Username:</span><BR>
                          <INPUT class=field id=firstname maxLength=200 name=Username>
                      </P>
                      <P><span class="text">Password:</span><BR>
                          <INPUT class=field id=firstname2 type=password maxLength=200 name=Password>
                    </P></TD>
                  </TR>
                  <TR>
                    <TD width=83>&nbsp;</TD>
                    <TD width=0>&nbsp;</TD>
                    <TD>&nbsp;</TD>
                    <TD>&nbsp;</TD>
                  </TR>
                  <TR>
                    <TD colSpan=2 valign="top">
                    <img src="images/proceed.gif" width="138" height="19" style="cursor:pointer;" onclick="<% if bCart then %>top.location.href = 'billing_shipping.asp';<% else %>alert('You need to add items to your bag to continue.');<% end if %>">
                    </TD>
                    <TD>&nbsp;</TD>
                    <TD valign="top">
                    <img src="images/checkout.gif" width="138" height="19" style="cursor:pointer;" onclick="<% if bCart then %>setAction('login',-1,-1,-1);<% else %>alert('You need to add items to your bag to continue.');<% end if %>">
                    </TD>
                  </TR>
                  <% end if %>
                </TBODY>
              </TABLE>                <p>                </p>                </td>
            </tr>
          </table>          <p>&nbsp;</p>
          <table width="556" height="18" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="540" align="left" valign="middle">&nbsp;</td>
              <td width="16" align="right" valign="bottom"><img src="images/c5.gif" width="14" height="14"></td>
            </tr>
        </table></td>
      </tr>
    </table>
    <p>&nbsp;</p>
<!-- #include file=data/bottom.asp -->