<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'**Charon Cart**
'**Add to cart using a Form**
'
FormAction=Request.ServerVariables("SCRIPT_NAME")
if Request.Form <> "" then FormAction=FormAction & "?" & Request.Form
if Request.QueryString <> "" then FormAction=FormAction & "?" & Request.QueryString
if Request("Charon_Cart") <> "" then
Randomize Timer
isFound=false
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) = cstr(Request("prodcat")) and CCcart(CC_size,i)=Request("size") and CCcart(CC_size_geo,i)=Request("size2") and CCcart(CC_colour,i)=Request("colour") and CCcart(CC_thumb,i)=Request("thumb") and CCcart(CC_prodcat,i)=Request("prodcat") and CCcart(CC_desc,i)=Request("desc") then
CCcart(CC_Quantity,i) = CCcart(CC_Quantity,i) + 1
isFound=true
exit for
end if
next
if not isFound then
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) = "" then
CCcart(CC_ProductID,i)=Request("prodcat")
CCcart(CC_Quantity,i)=("1")
CCcart(CC_Name,i)=Request("prod_id")
CCcart(CC_Price,i)=Request("price")
CCcart(CC_size,i)=Request("size")
CCcart(CC_size_geo,i)=Request("size2")
CCcart(CC_colour,i)=Request("colour")
CCcart(CC_thumb,i)=Request("thumb")
CCcart(CC_prodcat,i)=Request("prodcat")
CCcart(CC_desc,i)=Request("desc")
CCcart(CC_UniqueKey,i)=int(rnd*9999999)+10000000
exit for
end if
next
end if
CartToCookie CCcart,"CharonCart"
CC_RedirectURL="basket_pt.asp"
Response.Redirect "basket_pt.asp"
end if
%>
Untitled Document
