%@LANGUAGE="VBSCRIPT"%>
<%
set RsDelivery = Server.CreateObject("ADODB.Recordset")
RsDelivery.ActiveConnection = MM_treeTops_STRING
RsDelivery.Source = "SELECT * FROM Freight"
RsDelivery.CursorType = 0
RsDelivery.CursorLocation = 2
RsDelivery.LockType = 3
RsDelivery.Open()
RsDelivery_numRows = 0
%>
<%
'
'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 "products.htm" <> "" then Response.Redirect "products.htm"
end if
%>
<%
'
'Redirect if cart is empty
'
if not isFound then response.redirect "cart_empty.htm"
%>