 |
|
Home
Brewing Beer
Making Wine
Related Links
About Us
Product Map
Contact Us
Shipping Details
<%
'This file is part of ProductCart, an ecommerce application developed and sold by Early Impact LLC. ProductCart, its source code, the ProductCart name and logo are property of Early Impact, LLC. Copyright 2001-2006. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of ProductCart's source code without the written consent of Early Impact. To contact Early Impact, please visit www.earlyimpact.com.
'Show shopping cart total
dim vcCartArr, vcCartIndex, v, scantidadCart7, vcTotal, vcItems
vcCartArr=Session("pcCartSession")
vcCartIndex=Session("pcCartIndex")
vcTotal=Cint(0) 'calculates the cart total
vcItems=Cint(0) 'counts items in your cart
vcPrice=Cint(0) 'calculates the cart cross sell product
vcpPrice=Cint(0) 'calculates the cart cross sell parent product
for v=1 to vcCartIndex
if vcCartArr(v,10)=0 then
vcItems=vcItems + vcCartArr(v,2)
vcPrice=Cint(0)
vcPrice=vcPrice+(vcCartArr(v,2)*vcCartArr(v,17))
vcPrice=vcPrice+(vcCartArr(v,2)*vcCartArr(v,5))
vcPrice=vcPrice-vcCartArr(v,30)
vcPrice=vcPrice+vcCartArr(v,31)
vcPrice=vcPrice-vcCartArr(v,15)
if trim(vcCartArr(v,27))="" then
vcCartArr(v,27)=0
end if
if trim(vcCartArr(v,28))="" then
vcCartArr(v,28)=0
end if
if (vcCartArr(v,27)>0) AND (vcCartArr(v,28)>0) then
vp = cint(vcCartArr(v,27))
vcpPrice=Cint(0)
vcpPrice=vcpPrice+(vcCartArr(vp,2)*vcCartArr(vp,17))
vcpPrice=vcpPrice+(vcCartArr(vp,2)*vcCartArr(vp,5))
vcpPrice=vcpPrice-vcCartArr(vp,30)
vcpPrice=vcpPrice+vcCartArr(vp,31)
vcpPrice=vcpPrice-vcCartArr(vp,15)
vcPrice = (cdbl(vcPrice)+cdbl(vcpPrice)) - ((cdbl(vcCartArr(v,28)) + cdbl(vcCartArr(vp,28)))*vcCartArr(v,2))
end if
if (vcCartArr(v,27)>-1) OR (vcCartArr(v,27)=-1 AND vcCartArr(v,28)=0) then 'Parent of a Bundle Cross Sell Product
vcTotal=vcTotal+vcPrice
end if
end if
next
if vcItems > 0 then %>
|
|
High Gravity Shipping for Wine Kits.
|
|
|
|
|
|
