<%@LANGUAGE="VBSCRIPT"%>
<%
'
'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 "Paintinglist.asp" <> "" then Response.Redirect "Paintinglist.asp"
end if
%>
Nati Poulin Artiste Peintre
