<% Dim shipcharges 'shipcharges= session("shipcharge") 'Response.write session("shipcharge") If Session("customerid") = "" Then Response.Redirect "error.asp?msg=" & Server.URLEncode ("We did not find your information, please fill the needed information again.") End If scartItem = Session("cartItem") arrCart = Session("MyCart") msg = Request.QueryString ("msg") if scartItem = 0 then Response.Redirect "error.asp?msg=" & Server.URLEncode ("Your cart is empty: cannot check out.") end if sqlCustomer = "SELECT * FROM customers WHERE custID = " & CInt(Session("customerid")) call openConn() Set rs = Server.CreateObject ("adodb.Recordset") rs.Open sqlCustomer, dbc, adOpenForwardOnly, adLockReadOnly, adCmdText If rs.EOF then Response.Redirect "customer.asp?msg=" & Server.URLEncode("Please fill in your information again.") End If 'procedure builds Cart contents table - isubTotal is the return value for the total sub showCartOut(isubTotal) 'double quote character q = chr(34) strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" isubtotal = 0 For i = 1 to scartItem strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i)) Next strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" 'inttax = isubtotal * Application("taxP") inttax = session("shipcharge") strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" isubtotal = isubtotal + inttax strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "
Product codeProduct nameQuantityUnit PriceTotal
" & arrCart(cProductCode,i) &"" & arrCart(cProductname,i) & "" & FormatCurrency(arrCart(cUnitPrice,i),2) & "" & FormatCurrency(arrCart(cUnitPrice,i) * arrCart(cQuantity,i),2) & "
Sub-total" & FormatCurrency(isubtotal,2) & "
Shipping Charges" & FormatCurrency(inttax,2) & "
Total" & FormatCurrency(isubtotal,2) & "
" response.write strHTML end sub %> All Florida Tickets
attraction tickets at low prices
email us for ticket information

Reserved for advertising / links etc..

 
<% If msg <> "" Then %>
Error. <%= msg %> <% else %>
Completing your order <% end if %>

Customer information
Customer ID: <%= rs("custid")%>
Name: <%= rs("cfirstname")& " " & rs("clastname") %>
Address: <%= rs("caddress") %> <% If Not IsEmpty(rs("caddress2")) Then Response.Write (rs("caddress2")) End If %>
<%= rs("ctown") %>
State: <%= rs("cstate") %>
Zip: <%= rs("czip") %>
Country: <%= rs("ccountry") %>


<% rs.close set rs = nothing call closeConn() %>
Shipping information (if different from customer information)
Name:
Address:
Town:
Zip code:
State:
Country:
Payment information
Payment:
Card name: " size="20">
Card no.: " size="20">
Expiration date:
Card address (if different from your address): " size="20">

<% call showCartOut(intTotal) %>