<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% numInvoice=session.sessionid 'Initialise objects and variables Dim cartArray ' no parens! no size! Dim cartMaxUsed cartArray = Session("cartArray") cartMaxUsed = Session("cartMaxUsed") CONST ITEM_NAME = 0 CONST ITEM_ID = 1 CONST ITEM_PRICE = 2 CONST ITEM_QUANTITY = 3 CONST ITEM_SHIPPING = 4 %> Checkout with PayPal
<% dim numItemCount numItemCount = 0 numShipping = 0 %> <% for itemcount = 0 to cartMaxUsed itemname = cartArray(ITEM_NAME,itemcount) itemid = cartArray(ITEM_ID,itemcount) ITEMQTY = cartArray(ITEM_QUANTITY,itemcount) ITEMCOST= cartArray(ITEM_PRICE,itemcount) itemShipping = cartArray(ITEM_SHIPPING,itemcount) %> <%numItemCount=numItemCount+cartArray(ITEM_QUANTITY,itemcount)%> <%numShipping = numShipping + itemShipping%> <%next%>
Contacting Paypal Server