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 >

 

Save 15% with this icon!

 

Awards and Recognition For Your Locals!!!

Call ELK Promotions for more information!
(614) 846-8935