<% Dim blnIsRemote Dim strPostalCode Dim curShippingCost Dim strProvince Dim intCouponBalance META_DESCRIPTION="" META_KEYWORDS="" META_TITLE = "" PAGE_TITLE = "Confirmation" blnShowBreadCrumbs = True strBreadCrumbs = "Shopping Cart • Billing Info • Shipping Info • " & PAGE_TITLE & "" If Request.Form("comesfrom") = "confirmation" Then '==================== ' ' Set up the msg ' '==================== strHTML = "" & _ "" & _ " " & _ "" & _ "" & _ "" & _ " " & _ " " & _ " " & _ "" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ "" & _ "" total=0 subtotal=0 price_field=cProductPrice For x=0 To NUM_OF_ITEMS subtotal = formatCurrency(MY_CART(price_field,x)*MY_CART(cProductQuantity,x),2) total = total + subtotal strProductName = "" strProductName = MY_CART(cProductName,x) 'If MY_CART(cProductFormat,x) <> "" Then strProductName = strProductName & " (" & MY_CART(cProductFormat,x) & ")" 'If MY_CART(cProductLanguage,x) <> "" Then strProductName = strProductName & " - " & MY_CART(cProductLanguage,x) 'If MY_CART(cProductSize,x) <> "" Then strProductName = strProductName & " - " & MY_CART(cProductSize,x) strHTML = strHTML & "" & _ "" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ "" Next strHTML = strHTML & "" & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ "
 ProductPriceQtySubtotal 
 " & strProductName & "" & formatCurrency(MY_CART(price_field,x)) & " " & MY_CART(cProductQuantity,x) & "" & subtotal & " 
Sub Total: " & formatCurrency(total,2) & " 
Shipping cost to be calculated upon confirmation of your order. 
GST: " & formatCurrency(Request.Form("ordTax1Price"),2) & " 
PST: " & formatCurrency(Request.Form("ordTax2Price"),2) & " 
Total: " & formatCurrency(Request.Form("trnAmount"),2) & " 
" & _ "" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ "
 Billing Info Shipping Info
" & _ "  First Name
 " & Request.Form("billing_first_name") & "
" & _ "  Last Name
 " & Request.Form("billing_last_name") & "
" & _ "  Company Name
 " & Request.Form("billing_company") & "
" & _ "  Address
 " & Request.Form("billing_street") & "
" & _ "  City
 " & Request.Form("billing_city") & "
" & _ "  Province/State
 " & Request.Form("billing_province") & "
" & _ "  Country
 " & Request.Form("billing_country") & "
" & _ "  Postal Code
 " & Request.Form("billing_postal_code") & "
" & _ "  Phone
 " & Request.Form("billing_phone") & "
" & _ "  Email
 " & Request.Form("email") & "
" & _ " 		" & _ "  First Name
 " & Request.Form("shipping_first_name") & "
" & _ "  Last Name
 " & Request.Form("shipping_last_name") & "
" & _ "  Company Name
 " & Request.Form("shipping_company") & "
" & _ "  Address
 " & Request.Form("shipping_street") & "
" & _ "  City
 " & Request.Form("shipping_city") & "
" & _ "  Province/State
 " & Request.Form("shipping_province") & "
" & _ "  Country
 " & Request.Form("shipping_country") & "
" & _ "  Postal Code
 " & Request.Form("shipping_postal_code") & "
" & _ "  Phone
 " & Request.Form("shipping_phone") & "
" & _ "
" '==================== ' ' Send Sound Venture an Email ' '==================== Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") & "(" & Request.Form("billing_first_name") & " " & Request.Form("billing_last_name") & ")" myMail.To = SITE_EMAIL myMail.CC = SITE_CC_EMAIL & ";" & SITE_CC2_EMAIL myMail.Subject = "Order From Online Store" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = strHTML myMail.Send Set myMail = Nothing '==================== ' ' Send Customer an Email ' '==================== Set myMail = CreateObject("CDONTS.NewMail") myMail.From = SITE_EMAIL & " (Sound Venture Online Store)" myMail.To = Request.Form("email") & "(" & Request.Form("billing_first_name") & " " & Request.Form("billing_last_name") & ")" myMail.Subject = "Order Receipt" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = strHTML & "

A Sound Venture sales representative will contact you to confirm your order, shipping costs and payment.

Thank you for shopping at " & SITE_NAME & ".

" myMail.Send Set myMail = Nothing Response.Redirect "thankyou.asp" End If %> <% If NUM_OF_ITEMS=-1 Then Response.Write "
Your shopping cart is currently empty.
" Else '==================== ' Get the UPS shipping cost '==================== curShippingCost = 0 'curShippingCost = GetUPSCost() 'strProvince = Request.Form("shipping_province") 'strPostalCode = UCase(Request.Form("shipping_postal_code")) 'strPostalCode = Replace(strPostalCode, " ", "") %>

Please review all the info to make sure everything is correct before proceeding to the secure payment.

<% Response.Write "" & _ "" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ "" & _ "" total=0 subtotal=0 '====================== ' Add a new order to the database '====================== Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD DB.OpenRecord "tsv_orders", 0 DB.SetField "status", "In Process" DB.SetField "date_ordered", Now() DB.SetField "email", Request.Form("email") DB.SetField "billing_first_name", Request.Form("billing_first_name") DB.SetField "billing_last_name", Request.Form("billing_last_name") DB.SetField "billing_phone", Request.Form("billing_phone") DB.SetField "billing_fax", Request.Form("billing_fax") DB.SetField "billing_company", Request.Form("billing_company") & " " DB.SetField "billing_street", Request.Form("billing_street") DB.SetField "billing_city", Request.Form("billing_city") DB.SetField "billing_province", Request.Form("billing_province") DB.SetField "billing_country", Request.Form("billing_country") DB.SetField "billing_postal_code", Request.Form("billing_postal_code") DB.SetField "shipping_first_name", Request.Form("shipping_first_name") DB.SetField "shipping_last_name", Request.Form("shipping_last_name") DB.SetField "shipping_phone", Request.Form("shipping_phone") DB.SetField "shipping_fax", Request.Form("shipping_fax") DB.SetField "shipping_company", Request.Form("shipping_company") & " " DB.SetField "shipping_street", Request.Form("shipping_street") DB.SetField "shipping_city", Request.Form("shipping_city") DB.SetField "shipping_province", Request.Form("shipping_province") DB.SetField "shipping_country", Request.Form("shipping_country") DB.SetField "shipping_postal_code", Request.Form("shipping_postal_code") DB.CloseRecord() ID = DB.GetLastID() For x=0 To NUM_OF_ITEMS price_field = cProductPrice subtotal = FormatCurrency(MY_CART(price_field,x)*MY_CART(cProductQuantity,x),2) total = total + subtotal '==================== ' Format the name '==================== strProductName = "" strProductName = MY_CART(cProductName,x) 'If MY_CART(cProductFormat,x) <> "" Then strProductName = strProductName & " (" & MY_CART(cProductFormat,x) & ")" 'If MY_CART(cProductLanguage,x) <> "" Then strProductName = strProductName & " - " & MY_CART(cProductLanguage,x) 'If MY_CART(cProductSize,x) <> "" Then strProductName = strProductName & " - " & MY_CART(cProductSize,x) Response.Write "" & _ "" & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ " " & _ "" DB.OpenRecord "tsv_orders_items", 0 DB.SetField "product_id", MY_CART(cProductId,x) DB.SetField "order_id", ID DB.SetField "quantity", MY_CART(cProductQuantity,x) DB.SetField "price", MY_CART(price_field,x) DB.CloseRecord() Next gst = 0 pst = 0 Select Case strProvince Case "NU","YT","NT","AB": gst=(total+curShippingCost) * cGSTAmount Case "NB","NL","NS": gst=(total+curShippingCost) * cGSTAmount Case "PE": gst=(total+curShippingCost) * cGSTAmount Case "QC": gst=(total+curShippingCost) * cGSTAmount Case "SK": gst=(total+curShippingCost) * cGSTAmount Case "ON": gst=(total+curShippingCost) * cGSTAmount pst=(total+curShippingCost) * cPSTAmount Case "BC","MB": gst=(total+curShippingCost) * cGSTAmount End Select curTotal1 = curShippingCost + total + gst + pst Response.Write "" & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ " " & _ "" & _ "" & _ "
 ProductPriceQtySubtotal 
 " & strProductName & "" & formatCurrency(MY_CART(price_field,x)) & " " & MY_CART(cProductQuantity,x) & "" & subtotal & " 
Sub Total: " & formatCurrency(total,2) & " 
Shipping cost to be calculated upon confirmation of your order. 
GST: " & formatCurrency(gst,2) & " 
PST: " & formatCurrency(pst,2) & " 
Total: " & formatCurrency(curTotal1,2) & " 
" '==================== ' Update the order amounts '==================== DB.OpenRecord "tsv_orders" , ID DB.SetField "total", formatCurrency(curTotal1,2) DB.SetField "ship_cost", formatCurrency(curShippingCost,2) DB.SetField "gst", formatCurrency(gst,2) DB.SetField "pst", formatCurrency(pst,2) DB.CloseRecord() Set DB = Nothing %>
 Billing Info  Shipping Info
 First Name
 " & Request.Form("billing_first_name") & "
"%>  Last Name
 " & Request.Form("billing_last_name") & "
"%>  Company Name
 " & Request.Form("billing_company") & "
"%>  Address
 " & Request.Form("billing_street") & "
"%>  City
 " & Request.Form("billing_city") & "
"%>  Province/State
 " & Request.Form("billing_province") & "
"%>  Country
 " & Request.Form("billing_country") & "
"%>  Postal Code
 " & Request.Form("billing_postal_code") & "
"%>  Phone
 " & Request.Form("billing_phone") & "
"%>  Email
 " & Request.Form("email") & "
"%> 		 First Name
 " & Request.Form("shipping_first_name") & "
"%>  Last Name
 " & Request.Form("shipping_last_name") & "
"%>  Company Name
 " & Request.Form("shipping_company") & "
"%>  Address
 " & Request.Form("shipping_street") & "
"%>  City
 " & Request.Form("shipping_city") & "
"%>  Province/State
 " & Request.Form("shipping_province") & "
"%>  Country
 " & Request.Form("shipping_country") & "
"%>  Postal Code
 " & Request.Form("shipping_postal_code") & "
"%>  Phone
 " & Request.Form("shipping_phone") & "
"%>
<% 'Get the billing address strBillAddress1 = "": strBillAddress2 = "" If Len(Trim("" & Server.HTMLEncode("" & Request.Form("billing_street")))) <= 32 Then strBillAddress1 = Server.HTMLEncode("" & Request.Form("billing_street")) Else strBillAddress1 = Left(Server.HTMLEncode("" & Request.Form("billing_street")), 32) strBillAddress2 = Mid(Server.HTMLEncode("" & Request.Form("billing_street")), 33, 32) End If 'Get the shipping address strShipAddress1 = "": strShipAddress2 = "" If Len(Trim("" & Server.HTMLEncode("" & Request.Form("shipping_street")))) <= 32 Then strShipAddress1 = Server.HTMLEncode("" & Request.Form("shipping_street")) Else strShipAddress1 = Left(Server.HTMLEncode("" & Request.Form("shipping_street")), 32) strShipAddress2 = Mid(Server.HTMLEncode("" & Request.Form("shipping_street")), 33, 32) End If %> "> "> "> <% If Trim("" & strBillAddress2) <> "" Then %> <% End If %> "> "> "> "> "> "> "> <% If Trim("" & strShipAddress2) <> "" Then %> <% End If %> "> "> "> "> <% 'Get all items in cart in the order process For x = 0 To NUM_OF_ITEMS strCartValues = strCartValues & "" _ & "" _ & "" _ & "" _ & "" Next Response.Write strCartValues %>
<%End If%>