<%
'******CartAddItem
dim mycolor
Sub CartAddItem(id, rc)
' Return 0 if added, 4 if product does not exist
' Get from datbase and add to instorage array
dim scartitem
Dim arrCart
Dim TotalOptionPrice
Dim Optionname
CartGetProduct Id, rc
if rc = 0 then
   arrCart = Session("MyCart")
   scartItem = Session("cartItem")
   scartitem=scartitem+1
   Session("cartItem")=scartitem
   arrCart(cProductid,scartItem) = lngcatalogID
   arrCart(cProductCode,scartItem) = strccode
   arrCart(cProductname,scartItem) = strcname
   If isnumeric(quantity) then
     arrCart(cQuantity,scartItem) = CInt(quantity)
   else
     arrCart(cQuantity,scartItem) = 1
   end if
   arrCart(cUnitPrice,scartItem) = curCprice + TotaloptionPrice
   Session("MyCart")=arrCart
end if
end sub
%>