<%
const Cname = 0
const Citem_id = 1
const CPeriod = 2
const CPrice = 3
const CDesc= 4
const CSetup = 5
const CCode = 6
const maxshoppingcartitems = 20
iCount = Session("ItemCount")
cart = Session("MyCart")
%>
<%
''''''cases
SELECT CASE Request("act")
CASE "Recalculate"
''''QUANTITY CHANGE
For i = 1 to iCount
Quantity = Request("Quantity" & CStr(i))
cart(CPeriod,i) = abs(CLng(Quantity))
Next
'''' CHECKBOX UNCHECKED
For i = 1 to iCount
If Request("Confirm" & CStr(i)) = "" Then
iCount = iCount - 1
For x = 1 to UBound(cart,1)
cart(x,i) = ""
Next
n = i
while n < UBound(cart,2)
For x = 1 to UBound(cart,1)
cart(x,n) = cart(x,n + 1)
cart(x,n + 1) = ""
Next
n = n + 1
wend
End If
Next
Session("MyCart") = cart
Session("ItemCount") = iCount
CASE "Cancel Order"
display=0
iCount = 0
Session("ItemCount") = iCount
vmsg = "Your shopping cart is empty."
END SELECT
%>
