<%@LANGUAGE="VBSCRIPT"%>
<%
' UltraDev Shopping Cart II
' Copyright (c) 2001 Joseph Scavitto All Rights Reserved
' www.thechocolatestore.com/ultradev
Dim UCII_CartColNames,UCII_ComputedCols,UCII__i
UCII_CartColNames = Array("PartialStock","OutOfStock","Weight","TotalWeight","ProductID","DiscountRate","DiscountThreshold","DiscountValue","DiscountType","Quantity","Name","SpecialPrice","Price","Total")
UCII_ComputedCols = Array("","","","Weight","TotalWeight","","","","","","","","","Price")
Set UCII = VBConstuctCart("MyCart",28,UCII_CartColNames,UCII_ComputedCols)
UCII__i = 0
%>
<%
' UltraCart II Update Version 1.01
UCII_UpdateAction = CStr(Request("URL"))
If Request.QueryString <> "" Then
UCII_UpdateAction = UCII_UpdateAction & "?" & Request.QueryString
End If
If Request.Form("Quantity").Count > 0 Then
UCII.Update("Quantity")
UCII_RedirectToPage = ""
If UCII_RedirectToPage <> "" Then
If false Then
Server.Transfer(UCII_RedirectToPage)
Else
Response.Redirect(UCII_RedirectToPage)
End If
End If
End If
%>
<%
' UltraCart II Empty Cart Version 1.00
UCII_EmptyCart = CStr(Request.ServerVariables("URL")) & "?UCII_EmptyCart=1"
If (CStr(Request("UCII_EmptyCart")) = "1") Then
UCII.Destroy()
UCII_RedirectToPage = "/shop/_includes/categories.asp"
If (UCII_RedirectToPage = "") Then UCII_RedirectToPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UCII_RedirectToPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
newQS = "?"
For Each Item In Request.QueryString
If (Item <> "UCII_EmptyCart") Then
If (Len(newQS) > 1) Then newQS = newQS & "&"
newQS = newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(newQS) > 1) Then UCII_RedirectToPage = UCII_RedirectToPage & newQS
End If
Response.Redirect(UCII_RedirectToPage)
End If
%>
<%
' UltraCart II Redirect If Cart Empty Version 1.01
If (UCII.GetItemCount() <= 0) Then
UCII_RedirectToPage = "/shop/_includes/categories.asp"
If false Then
Server.Transfer(UCII_RedirectToPage)
Else
Response.Redirect(UCII_RedirectToPage)
End If
End If
%>
Review Cart 1