Sub CreateCart()
　If IsArray(Session("Cart")) = false Then
　　　Dim mudCart(19,1)
　　　Session("Cart") = mudCart
　End If
End Sub

Dim myArray(3,1)
ReDim Preserve myArray(3,2)
Dim myArrayID(1), myArrayQty(1)
Function AddItem(ID, Qty)
　Set CartObj = New CartKit
　varCartStatus = CartObj.CheckCart
　If varCartStatus=false Then
　　　CartObj.CreateCart
　　　mudCart=Session("Cart")
　　　mudCart(0,0)=ID
　　　mudCart(0,1)=Qty
　　　Session("Cart")=mudCart
　　　Exit Function
　ElseIf varCartStatus=true Then
　　　If CartObj.CheckItem(ID) = true Then
　　　　CartObj.UpdateItem ID,Qty
　　　Elseif cartObj.CheckItem(ID) = false Then
　　　　mudCart = Session("Cart")
　　　　For i = LBound(mudCart) TO UBound(mudCart)
　　　　If mudCart(i,0) = "" Then
　　　　　　mudCart(i,0) = ID
　　　　　　mudCart(i,1) = Qty
　　　　　　Session("Cart") = mudCart
　　　　　　Exit Function
　　　　End If
　　　Next
　　　End If
　End If
End Function

Function RemoveItem(ID)
　mudCart=Session("Cart")
　For i = LBound(mudCart) TO Ubound(mduCart)
　　　If myArray(i,0) = ID Then
　　　　Pos=i
　　　　Exit For
　　　End If
　Next

　For i = Pos TO UBound(myArray) - 1
　　　If Not myArray(i, 0) = "" Then
　　　　myArray(i,0) = myArray(i+1,0)
　　　　myArray(i,1) = myArray(i+1,1)

　　　End If
　Next
End Function

Role of Proxy.asp
varAction=CStr(Request.QueryString("ac"))
Set mudCartObj = New CartKit
varID = CStr(Request.Form("ID"))
varQty = Request.QueryString("qty")

If varAction="by" Then
　mudCartObj.AddItem varID, varQty
　ElseIf varAction="rm" Then
　mudCartObj.RemoveItem varID
　ElseIf varAction="up" Then
　mudCartObj.UpdateItem varID, varQty
　ElseIf varAction="ra" Then
　mudCartObj.RemoveAll
　ElseIf varAction="co" Then
　MudcartObj.CheckOut
　ElseIf varAction="cs" Then
　MudcartObj.ContinueShopping
End If

Function CartStatus()
　varTotalItems = 0
　Set CartObj = New CartKit
　If CartObj.CheckCart = true Then
　　　MudCart = Session("Cart")
　　　VarTotalItem = 0
　　　For i = Lbound(mudCart) TO Ubound(mudCart)
　　　If mudCart(i,0) <> "" Then
　　　　varTotalItem = varTotalItem + Cint(mudCart(i,1))
　　　End If
　　　Next
　　　ElseIf CartObj.CheckCart= False Then
　　　varTotalItem="0"
　End If
　CartStatus=varTotalItem End Function
　Set CartObj = Nothing
End Function

<%="You have " & Response.Write CartObj.CartStatus & _
　" items(s) in your cart"%>