<%
'************************************************************
' Version 6.50 May 21, 2003
' This routine displays the shopping cart and does recalculation
' if returnurl is passed, this routine returns back to that URL
'*******************************************************
Dim CurrentURL, count, i, returnurl
SetSess "CurrentURL","shopdeliveryaddress.asp"
Dim scartitem, arrcart, deliveryarray, deliveryrequired
scartItem = GetSess("CartCount")
arrCart = GetSessA("CartArray")
count=0
' go through all products
For i = 1 to scartItem
Deliveryarray=arrCart(cDelivery,i)
If not isarray(deliveryArray) then
FormatRow
count=count+1
end if
next
If count=0 then
returnurl=getsess("Currenturl")
if returnurl="" then
returnurl="shopcreateorder.asp"
end if
responseredirect returnurl
end if
response.write ""
ShoppageTrailer
Sub FormatRow
If count=0 then
shoppageHeader
WriteHeaderInfo
Response.write TableDef
end if
Response.write TableRow
productname=arrCart(cProductname,i)
%>
| <%=getlang("LangDeliveryAdd")%> |
<%
Response.write Tablecolumn & Productname & tableColumnEnd & tableRowend
end sub
Sub WriteHeaderInfo
shopwriteheader getlang("LangDeliveryMessage")
Response.write "
"
end sub
%>