|
ELK
Promotions, Inc. - OEA Online Catalog - Leading the Way for Children and
Public Education |
|
 |
My Account |
<% 'All ASP pages that contain this code must include the two include files listed below. However, if you are placing this code in your pc/header.asp file, remove both lines. %><%
dim vcCartArr, vcCartIndex, v, vcTotal, vcItems
vcCartArr=Session("pcCartSession")
vcCartIndex=Session("pcCartIndex")
vcTotal=Cint(0) 'calculates the cart total
vcItems=Cint(0) 'counts items in your cart
for v=1 to vcCartIndex
if vcCartArr(v,10)=0 then
vcItems=vcItems + vcCartArr(v,2)
vcTotal=vcTotal+(vcCartArr(v,2)*vcCartArr(v,17))
vcTotal=vcTotal+(vcCartArr(v,2)*vcCartArr(v,5))
vcTotal=vcTotal-vcCartArr(v,30)
vcTotal=vcTotal+vcCartArr(v,31)
vcTotal=vcTotal-vcCartArr(v,15)
'vcTotal=vcTotal + vcCartArr(v,5) + (vcCartArr(v,3)*vcCartArr(v,2))
end if
next
%>
|
Your Shopping Cart |
|
<%response.write vcItems%>
Item(s) |
|
Subtotal:
<%response.write scCurSign & money(vcTotal)%> |
|
View Cart >
Checkout > |
|
|
|
|
