%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' 'Update cart contents ' CC_UpdateAction=Request.ServerVariables("SCRIPT_NAME") if Request("CC_UpdateCart") <> "" then for i=0 to ubound(CCcart,2) intProductID=CCcart(CC_UniqueKey,i) Quantity=trim(Request.Form("Qty" & intProductID)) isDelete=trim(Request.Form("Delete" & intProductID)) if Quantity = "" or Quantity="0" or isDelete <> "" then CCcart(CC_PRODUCTID,i)="" else if IsNumeric(Quantity) then CCcart(CC_QUANTITY,i)=Quantity end if end if next ' 'Code below to prevent Object Moved error in Netscape ' CartToCookie CCcart,"CharonCart" if Session("UpdateNumber") <> "" then Session("UpdateNumber")=Session("UpdateNumber")+1 else Session("UpdateNumber")=1 end if response.redirect Request.ServerVariables("SCRIPT_NAME") & "?UpdateNumber=" & Session("UpdateNumber") end if %> <% ' 'Kill cart by setting cookie to nothing ' if Request("RemoveAll") <> "" then Response.Cookies("CharonCart")="" if "merchandise.asp" <> "" then Response.Redirect "merchandise.asp" end if %> <% ' 'Redirect if cart is empty ' if not isFound then response.redirect "cartempty.asp" %>
**Please Note : You may receive a pop-up message containing a security alert click "YES" to continue order. We are temporarily using our ISP's SSL to process Secure Transactions.
|
||
©2003 Custom Made Scare | info@custommadescare.com news | the band | tour dates | music | photos | merchandise message board | contact | links | home | join email list | view cart |