|
Check Out...
|
Item
|
Size
|
#
|
Cost/Item
|
Shipping
|
Cost
|
<%
'Display contents of shopping cart
cart=session("frm")
subtotal=0
for i=lbound(cart) to ubound(cart)
if cart(i,0)<>"" and cart(i,1)<>"" then
set rscart=db.execute("select title,prodid,price,shipping from prod where prodid=" & cart(i,0))
currentprice=rscart("price")
%>
|
<%= rscart("title") %>
|
<% if cart(i,2)="" then
response.write("N/A")
else
response.write(cart(i,2))
end if %>
|
<%= cart(i,1) %>
|
$ <%= formatnumber(currentprice)%>
|
$ <%= formatnumber(rscart("shipping") * cart(i,1)) %>
|
$ <%= formatnumber((currentprice+rscart("shipping")) * cart(i,1)) %>
|
<%subtotal=subtotal+((currentprice+rscart("shipping")) * cart(i,1))
end if
next %>
|
TOTAL:
|
$ <%=formatnumber(subtotal)%>
|
NOTE: all prices are in US funds
To pay via cheque, money
order or VISA card, please fill out the shipping information below. Mail or Fax: The next page will
be an order form you can print out, and mail to us.
|
