Inc_CharonCart.asp

This is a commented copy of the Inc_CharonCart.asp file that must be included in all pages that have any Cart functionality. The code is shown in blue and the character indicates a line break that must not appear in the code.

The first section sets up the array positions of the default cart columns.

CONST CC_ProductID = 0
CONST CC_Quantity = 1
CONST CC_Name = 2
CONST CC_Price = 3
CONST CC_UniqueKey = 4

A check is made to see if the CharonCart cookie exists.

if Request.Cookies("CharonCart") = "" then

If it does NOT exist yet an empty 5 by 50 array is created. The 5 columns refer to the 5 constants set above which correspond to ProductID, Quantity, Name, Price and UniqueID of every item in the cart.

dim CCcart(5,50)

If the cart DOES exist the function CookieToCart is called on the CharonCart cookie that moves the cookie into the cart array.

else
CCcart=CookieToCart("CharonCart")
end if

Resets those variables that are not stored in the cookie but in the CCcart array (Charon Cart psudorecordset).

CCcart_SubTotal=0
CCcart_numItems=0
CCcart_Shipping=0
CCcart_Discount=0
CCcart_SalesTax=0

Assumes that the cart is empty.

isFound=false

Creates a loop counter based on the number of items in the CCcart array.

for i=0 to ubound(CCcart,2)

Checks the contents of the ProductID at row number i in the array.

if CCcart(CC_ProductID,i) <> "" then
isFound=true

Adds the value of Item i to the current subtotal.

CCcart_SubTotal=CCcart_SubTotal+(CCcart(CC_Quantity,i)
* CCcart(CC_Price,i))

Adds one to the number of items in the cart.

CCcart_numItems=CCcart_numItems + 1
end if

Loops back to the FOR statement i times

next

Defines a function that calculates the CCcart_LineTotal when called

function CCcart_LineTotal

This function is called from a CartRepeat Region loop where i is defined similarly to above using a ubound command to count the number of items in the cart

CCcart_LineTotal=CCcart(CC_Quantity,i)*CCcart(CC_Price,i)
end function

Function that calculates the CCcart_GrandTotal when called.

function CCcart_GrandTotal
CCcart_GrandTotal=CCcart_SubTotal + CCcart_Shipping + CCcart_SalesTax - CCcart_Discount
end function

Important function that converts the CCcart array to a cookie the arrayname (CCcart) and the Cookiename are supplied when the function is called.

function CartToCookie(thearray,cookiename)
on error resume next
mystring=""

Sets the first loop for the number of items in the cart using Ubound.

for j=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,j) <> "" then

If there is a product then add its 5 properties to the cookie. The hat symbol (^) is inserted to provide a character that breaks the string that is feed to the cookie (mystring) which will enable the code to identify rows and columns in the string.

for i=0 to 5
mystring=mystring & CCcart(i,j) & "^"
next

Once the 5 properties have been added there is a ^ left which has been added at the end of the last loop. This is deleted.

mystring=left(mystring,len(mystring)-1)

Adds a | sign to act as the end of row delimeter for later array conversion and loops round for the next item.

mystring=mystring & "|"
end if
next

The last | that has been added at the end of the loop of items is not required and is deleted

mystring=left(mystring,len(mystring)-1)

The string is saved as a cookie.

Response.Cookies(cookiename)=mystring
end function

Function that converts the cookie to the CCcart array.

function CookieToCart(cookiename)
dim myarray(5,50)
mystring=Request.Cookies(cookiename)

Splits the cookie into item rows using the | sign as a delimiter.

productarray=split(mystring,"|")

Sets item loop number using Ubound.

for j=0 to ubound(productarray)

Splits each row of item properties into columns using the ^ delimiter and each 5 item properties are added to the array

itemarray=split(productarray(j),"^")
for i=0 to 5
if itemarray(i) <> "" then
myarray(i,j)=itemarray(i)
else

Adds a null item if there is nothing in the properties.

myarray(i,j)=null
end if
next
next

Sets the CookieToCart value which is returned to myarray

CookieToCart=myarray
end function
%>

1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18