<% Dim strIp strIp = Request.ServerVariables("REMOTE_HOST") Dim strCartId strCartId = Request("CartId") Dim strCustNumber strCustNumber = Request("CustNumber") 'Get order number DIM objRS4 Set objRS4 = Server.CreateObject("ADODB.Recordset") objRS4.Open "Orders", objConn, 1, 3 If Not objRS4.EOF Then objRS4.MoveLast strOrderNumber = objRS4("OrderNumber") + 1 Else strOrderNumber = 1000000001 End If DIM mySQL3, objRS3 mySQL3 = "SELECT * FROM Customers Where CustNumber = "& strCustNumber &"" Set objRS3 = Server.CreateObject("ADODB.Recordset") objRS3.Open mySQL3, objConn ' Cust Account info Dim strFName strFName = objRS3("FName") Dim strMName strMName = objRS3("MName") Dim strLName strLName = objRS3("LName") DIM strCoName strCoName = objRS3("CoName") DIM strEmail strEmail = objRS3("Email") Dim strAddress strAddress = objRS3("Address") Dim strAddress2 strAddress2 = objRS3("Address2") Dim strCity strCity = objRS3("City") Dim strState strState = objRS3("State") Dim strZipCode strZipCode = objRS3("ZipCode") Dim strCountry strCountry = objRS3("Country") Dim strCountryCode strCountryCode = objRS3("CountryCode") Dim strAreaCode strAreaCode = objRS3("AreaCode") Dim strPhoneEx strPhoneEx = objRS3("PhoneEx") Dim strPhoneNum strPhoneNum = objRS3("PhoneNum") Dim strAreaCode2 strAreaCode2 = objRS3("AreaCode2") Dim strPhoneEx2 strPhoneEx2 = objRS3("PhoneEx2") Dim strPhoneNum2 strPhoneNum2 = objRS3("PhoneNum2") Dim strInternationalPhone strInternationalPhone = objRS3("InternationalPhone") ' CC Info DIM strDisclaimer strDisclaimer = Session("Disclaimer") DIM strCCType strCCType = Session("CCType") DIM strCCNumber strCCNumber = Session("CCNumber") DIM strCCExMonth strCCExMonth = Session("CCExMonth") DIM strCCExYear strCCExYear = Session("CCExYear") DIM strCCID strCCID = Session("CCID") ' Shipping Info DIM strShipAlternate strShipAlternate = Session("ShipAlternate") DIM strShipFName strShipFName = Session("ShipFName") DIM strShipLName strShipLName = Session("ShipLName") DIM strShipCoName strShipCoName = Session("ShipCoName") DIM strShipAddress strShipAddress = Session("ShipAddress") DIM strShipAddress2 strShipAddress2 = Session("ShipAddress2") DIM strShipCity strShipCity = Session("ShipCity") DIM strShipState strShipState = Session("ShipState") DIM strShipZipCode strShipZipCode = Session("ShipZipCode") DIM strShipCountry strShipCountry = Session("ShipCountry") DIM strShipCountryCode strShipCountryCode = Session("ShipCountryCode") Dim strShippingMethod strShippingMethod = Session("ShippingMethod") Dim strShippingType strShippingType = Session("ShippingType") ' Cart Info DIM strCartTotal strCartTotal = Session("CartTotal") Dim strTaxTotal strTaxTotal = Session("TaxTotal") DIM strShipping strShipping = Session("Shipping") DIM strOrderTotal strOrderTotal = Session("OrderTotal") Dim x_auth_code, x_trans_id If strGateway = "AuthorizeNet" Then Dim strAuthId strAuthId = objRSCo("AuthId") Dim strAuthTransKey strAuthTransKey = objRSCo("AuthTransKey") Dim PostData ' Merchant Info PostData = "x_login=" & strAuthId PostData = PostData & "&x_tran_key=" & strAuthTransKey PostData = PostData & "&x_version=3.1" PostData = PostData & "&x_test_request=" & strAuthTest ' Gateway Respose Config PostData = PostData & "&x_delim_data=TRUE" 'PostData = PostData & "&x_delim_char=," PostData = PostData & "&x_relay_response=FALSE" ' Customer Info PostData = PostData & "&x_first_name=" & strFName & "" PostData = PostData & "&x_last_name=" & strLName & "" PostData = PostData & "&x_company=" & strCoName & "" PostData = PostData & "&x_address=" & strAddress & " " & strAddress2 & "" PostData = PostData & "&x_city=" & strCity & "" PostData = PostData & "&x_state=" & strState & "" PostData = PostData & "&x_zip=" & strZipCode & "" PostData = PostData & "&x_country=" & strCountryCode & "" PostData = PostData & "&x_phone=" & strAreaCode & "." & strPhoneEx & "." & strPhoneNum & "" ' Email Settings PostData = PostData & "&x_email=" & strEmail & "" PostData = PostData & "&x_email_customer=TRUE" 'PostData = PostData & "&x_merchant_email=" & strCoEmail & "" ' Invoice Info PostData = PostData & "&x_invoice_num=" & strOrderNumber & "" PostData = PostData & "&x_description=" & strCoName & " Online Order" ' Alt Shipping Info PostData = PostData & "&x_ship_to_first_name=" & strShipFName & "" PostData = PostData & "&x_ship_to_last_name=" & strShipLName & "" PostData = PostData & "&x_ship_to_company=" & strShipCoName & "" PostData = PostData & "&x_ship_to_address=" & strShipAddress & " " & strShipAddress2 & "" PostData = PostData & "&x_ship_to_city=" & strShipCity & "" PostData = PostData & "&x_ship_to_state=" & strShipState & "" PostData = PostData & "&x_ship_to_zip=" & strShipZipCode & "" PostData = PostData & "&x_ship_to_country=" & strShipCountryCode & "" ' Transaction Data PostData = PostData & "&x_amount=" & strOrderTotal & "" PostData = PostData & "&x_method=CC" PostData = PostData & "&x_type=AUTH_CAPTURE" PostData = PostData & "&x_card_num=" & strCCNumber & "" PostData = PostData & "&x_exp_date=" & strCCExMonth & "/" & strCCExYear & "" PostData = PostData & "&x_card_code=" & strCCID & "" 'Response.Write PostData 'Response.End 'Send the transaction info as part of the querystring Dim xml, strStatus, strRetVal set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.open "POST", "https://secure.authorize.net/gateway/transact.dll?" & PostData & "", false xml.send "" strStatus = xml.Status strRetval = xml.responseText set xml = nothing 'Response.Write "Response = " & strRetVal & "
" 'print return string Dim strArrayVal strArrayVal = split(strRetVal, ",", -1) x_response_code = strArrayVal(0) 'Response Code: '1 = This transaction has been approved. '2 = This transaction has been declined. '3 = There has been an error processing this transaction. x_response_subcode = strArrayVal(1) x_response_reason_code = strArrayVal(2) x_response_reason_text = strArrayVal(3) x_auth_code = strArrayVal(4) '6 digit approval code x_avs_code = strArrayVal(5) 'Address Verification system: 'A = Address (street) matches, Zip does not 'E = AVS error 'N = No match on address or zip 'P = AVS Not Applicable 'R = Retry, system unavailable or timed out 'S = service not supported by issuer 'U = address information is unavailable 'W = 9 digit Zip matches, address does not 'X = exact AVS match 'Y = address and 5 digit zip match 'Z = 5 digit zip matches, address does not x_trans_id = strArrayVal(6) 'transaction id x_invoice_num = strArrayVal(7) x_description = strArrayVal(8) x_amount = strArrayVal(9) x_method = strArrayVal(10) x_type = strArrayVal(11) x_cust_id = strArrayVal(12) x_first_name = strArrayVal(13) x_last_name = strArrayVal(14) x_company = strArrayVal(15) x_address = strArrayVal(16) x_city = strArrayVal(17) x_state = strArrayVal(18) x_zip = strArrayVal(19) x_country = strArrayVal(20) x_phone = strArrayVal(21) x_fax = strArrayVal(22) x_email = strArrayVal(23) x_ship_to_first_name = strArrayVal(24) x_ship_to_last_name = strArrayVal(25) x_ship_to_company = strArrayVal(26) x_ship_to_address = strArrayVal(27) x_ship_to_city = strArrayVal(28) x_ship_to_state = strArrayVal(29) x_ship_to_zip = strArrayVal(30) x_ship_to_country = strArrayVal(31) x_tax = strArrayVal(32) x_duty = strArrayVal(33) x_freight = strArrayVal(34) x_tax_exempt = strArrayVal(35) x_po_num = strArrayVal(36) x_md5_hash = strArrayVal(37) If (strStatus <> 200) Then Response.Write "An error occured during processing. Please try again later." Response.End else If x_response_code = 1 Then elseif x_response_code = 2 then Response.Write "


The transaction was Declined.

" & x_response_reason_text Response.End elseif x_response_code = 3 then Response.Write "


The transaction was NOT approved.

" Response.Write Ucase (x_response_reason_text) Response.Write "

Use your browser's Back Button to enter the correct information." Response.End Else Response.Write "An error occured during processing. Please try again later." Response.End End If end if Else x_auth_code = "" x_trans_id = "" End If DIM mySQL, objRS Set objRS = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM Cart Where CartId ='"& strCartId & "'" objRS.Open mySQL, objConn DIM objRS1 Set objRS1 = Server.CreateObject("ADODB.Recordset") objRS1.Open "OrderItems", objConn, 1, 3 DIM strItemNum DIM strDescription Dim strDownload Dim strFileName DIM strOpt1 DIM strOpt2 DIM strOpt3 DIM strQuantity DIM strPrice DIM strItemTotal Dim strNotes Do strItemNum = objRS("ItemNum") strDescription = objRS("Description") strDownload = objRS("Download") strFileName = objRS("FileName") If objRS("Opt1") = "0" Then strOpt1 = "" Else strOpt1 = objRS("Opt1") End If If objRS("Opt2") = "0" Then strOpt2 = "" Else strOpt2 = objRS("Opt2") End If If objRS("Opt3") = "0" Then strOpt3 = "" Else strOpt3 = objRS("Opt3") End If strQuantity = objRS("Quantity") strPrice = objRS("Price") strItemTotal = objRS("ItemTotal") strNotes = objRS("Notes") objRS1.AddNew objRS1("OrderNumber") = strOrderNumber objRS1("CustNumber") = strCustNumber objRS1("ItemNum") = strItemNum objRS1("Description") = strDescription objRS1("Download") = strDownload objRS1("FileName") = strFileName objRS1("Opt1") = strOpt1 objRS1("Opt2") = strOpt2 objRS1("Opt3") = strOpt3 objRS1("Quantity") = strQuantity objRS1("Price") = strPrice objRS1("ItemTotal") = strItemTotal objRS1("Notes") = strNotes objRS1.Update objRS.MoveNext Loop Until objRS.EOF DIM objRS5 Set objRS5 = Server.CreateObject("ADODB.Recordset") objRS5.Open "Orders", objConn, 1, 3 objRS5.AddNew objRS5("OrderNumber") = strOrderNumber objRS5("CustNumber") = strCustNumber objRS5("FName") = strFName objRS5("MName") = strMName objRS5("LName") = strLName objRS5("CoName") = strCoName objRS5("Address") = strAddress objRS5("Address2") = strAddress2 objRS5("City") = strCity objRS5("State") = strState objRS5("ZipCode") = strZipCode objRS5("Country") = strCountry objRS5("CountryCode") = strCountryCode objRS5("Email") = strEmail objRS5("AreaCode") = strAreaCode objRS5("PhoneEx") = strPhoneEx objRS5("PhoneNum") = strPhoneNum objRS5("AreaCode2") = strAreaCode2 objRS5("PhoneEx2") = strPhoneEx2 objRS5("PhoneNum2") = strPhoneNum2 objRS5("InternationalPhone") = strInternationalPhone objRS5("ShipAlternate") = strShipAlternate objRS5("ShippingMethod") = strShippingMethod objRS5("ShippingType") = strShippingType objRS5("ShipFName") = strShipFName objRS5("ShipLName") = strShipLName objRS5("ShipCoName") = strShipCoName objRS5("ShipAddress") = strShipAddress objRS5("ShipAddress2") = strShipAddress2 objRS5("ShipCity") = strShipCity objRS5("ShipState") = strShipState objRS5("ShipZipCode") = strShipZipCode objRS5("ShipCountry") = strShipCountry objRS5("ShipCountryCode") = strShipCountryCode objRS5("HostIP") = strIp objRS5("Disclaimer") = strDisclaimer objRS5("CCApproval") = x_auth_code objRS5("TransId") = x_trans_id objRS5("CartTotal") = strCartTotal objRS5("TaxTotal") = strTaxTotal objRS5("ShippingCost") = strShipping objRS5("OrderTotal") = strOrderTotal objRS5("Shipped") = "No" objRS5.Update %> <% DIM mySQL2, objRS2 Set objRS2 = Server.CreateObject("ADODB.Recordset") mySQL2 = "SELECT * FROM Cart Where CartId ='"& strCartId & "'" objRS2.Open mySQL2, objConn Dim strItems Do While Not objRs2.EOF strItemNum = objRS2("ItemNum") strDescription = objRS2("Description") strOpt1 = objRS2("Opt1") strOpt2 = objRS2("Opt2") strOpt3 = objRS2("Opt3") strQuantity = objRS2("Quantity") strPrice = strCurrencySymbol & FormatNumber(objRS2("Price"),2) strItemTotal = strCurrencySymbol & FormatNumber(objRS2("ItemTotal"),2) strNotes = objRS2("Notes") strItems = (strItems & strQuantity & " - " & strItemNum & " - " & strDescription & " - " & strOpt1 & " " & strOpt2 & " " & strOpt3 & " - " & strPrice & " - " & strItemTotal & vbCrLf & strNotes & vbCrLf) objRs2.MoveNext Loop 'See if atlt shipping is yes and create string for email Dim strEmailShipping If strShipAlternate = "Yes" Then strEmailShipping = "====Alternate Shipping Address====" & vbCrLf &_ "Ship To Alternate Address: " & strShipAlternate & vbCrLf & vbCrLf & _ strShipFName &" "& strShipLName & vbCrLf & _ strShipCoName & vbCrLf & _ strShipAddress & vbCrLf & _ strShipAddress2 & vbCrLf & _ strShipCity & ", " & strShipState & " " & strShipZipCode & " " & strShipCountry & vbCrLf & vbCrLf Else strEmailShipping = "" End If ' Format as currency for the email. Dim strMailCartTotal strMailCartTotal = strCurrencySymbol & FormatNumber(strCartTotal,2) Dim strMailTaxTotal strMailTaxTotal = strCurrencySymbol & FormatNumber(strTaxTotal,2) Dim strMailShipping strMailShipping = strCurrencySymbol & FormatNumber(strShipping,2) Dim strMailOrderTotal strMailOrderTotal = strCurrencySymbol & FormatNumber(strOrderTotal,2) Dim strBody strBody = vbCrLf & "====Customer Information====" & vbCrLf & vbCrLf & _ strFName & " " & strMName & " " & strLName & vbCrLf & _ strCoName & vbCrLf & _ strAddress & vbCrLf & _ strAddress2 & vbCrLf & _ strCity & ", " & strState & " " & strZipCode & " " & strCountry & vbCrLf & vbCrLf & _ "Phone: " & strAreaCode &"-"& strPhoneEx &"-"& strPhoneNum & vbCrLf & _ "Phone2: " & strAreaCode2 &"-"& strPhoneEx2 &"-"& strPhoneNum2 & vbCrLf & _ "International Phone: " & strInternationalPhone & vbCrLf & _ strEmail & vbCrLf & vbCrLf & _ "Shipping Type: " & strShippingType & vbCrLf & vbCrLf & _ strEmailShipping & _ "==========Order Information==========" & vbCrLf & vbCrLf &_ "Order Number: " & strOrderNumber & vbCrLf & vbCrLf & _ "Payment Type: Credit Card" & vbCrLf & vbCrLf & _ "Approval ID: " & x_auth_code & vbCrLf & vbCrLf & _ "Transaction ID: " & x_trans_id & vbCrLf & vbCrLf & _ "Quantity - Item Number - Description - Options - Price - Item Total" & vbCrLf & vbCrLf &_ strItems & vbCrLf &_ "Sub Total: " & strMailCartTotal & vbCrLf &_ "Tax: " & strMailTaxTotal & vbCrLf &_ "Shipping: " & strMailShipping & " " & strShippingMethod & " " & strShippingType & vbCrLf &_ "Order Total: " & strMailOrderTotal 'Body for SMS Dim strBody3 strBody3 = strFName & " " & strLName & vbCrLf & _ "Total: " & strMailOrderTotal DIM Mail 'Persits Mail control Dim objCDOMail 'CDONTS Mail control Dim cdoMail 'CDOSYS Mail control If strEmailComponent = "Persits" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strMailServer Mail.Username = strCoEmail Mail.Password = strEmailPWD Mail.From = strCoEmail Mail.AddAddress strCoEmail 'Mail.AddCC strCoEmail Mail.Subject = strOrderNumber & " " & strMyCoName & " Online Order" Mail.Body = strBody On Error Resume Next Mail.Send Set Mail = Nothing IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through email." & Err.Description END IF If strSendSMS = "Yes" Then If strSMS <> "" Then 'Send SMS Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strMailServer Mail.Username = strCoEmail Mail.Password = strEmailPWD Mail.From = strCoEmail Mail.AddAddress strSMS Mail.Subject = strOrderNumber Mail.Body = strBody3 On Error Resume Next Mail.Send End If End If ElseIf strEmailComponent = "CDOSYS" Then Set cdoMail = Server.CreateObject("CDO.Message") cdoMail.From = strCoEmail cdoMail.To = strCoEmail cdoMail.Subject = strOrderNumber & " " & strMyCoName & " Online Order" cdoMail.TextBody = strBody On Error Resume Next cdoMail.Send() IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through the CDOSYS Email." & Err.Description END IF Set cdoMail = Nothing If strSendSMS = "Yes" Then If strSMS <> "" Then 'Send SMS Set cdoMail = Server.CreateObject("CDO.Message") cdoMail.From = strCoEmail cdoMail.To = strSMS cdoMail.Subject = strOrderNumber cdoMail.TextBody = strBody3 On Error Resume Next cdoMail.Send() End If End If ElseIf strEmailComponent = "CDONTS" Then Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strCoEmail objCDOMail.To = strCoEmail 'objCDOMail.Cc = strCoEmail objCDOMail.Subject = strOrderNumber & " " & strMyCoName & " Online Order" 'objCDOMail.BodyFormat = 0 'objCDOMail.MailFormat = 0 objCDOMail.Body = strBody objCDOMail.Importance = 1 On Error Resume Next objCDOMail.Send Set objCDOMail = Nothing IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through email." & Err.Description END IF If strSendSMS = "Yes" Then If strSMS <> "" Then 'Send SMS Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strCoEmail objCDOMail.To = strSMS objCDOMail.Subject = strOrderNumber objCDOMail.Body = strBody3 On Error Resume Next objCDOMail.Send End If End If Else End If 'Send a Copy of the email to the Customer. Dim strBody2 strBody2 = vbCrLf & _ strFName & " " & strMName & " " & strLName & vbCrLf & _ strCoName & vbCrLf & _ strAddress & vbCrLf & _ strAddress2 & vbCrLf & _ strCity & ", " & strState & " " & strZipCode & " " & strCountry & vbCrLf & vbCrLf & _ "Phone: " & strAreaCode &"-"& strPhoneEx &"-"& strPhoneNum & vbCrLf & _ "Phone2: " & strAreaCode2 &"-"& strPhoneEx2 &"-"& strPhoneNum2 & vbCrLf & _ "International Phone: " & strInternationalPhone & vbCrLf & _ strEmail & vbCrLf & vbCrLf & _ "Shipping Type: " & strShippingType & vbCrLf & vbCrLf & _ strEmailShipping & _ "==========Order Information==========" & vbCrLf & vbCrLf &_ "Order Number: " & strOrderNumber & vbCrLf & vbCrLf & _ "Payment Type: Credit Card" & vbCrLf & vbCrLf & _ "Quantity - Item Number - Description - Options - Price - Item Total" & vbCrLf & vbCrLf &_ strItems & vbCrLf &_ "Sub Total: " & strMailCartTotal & vbCrLf &_ "Tax: " & strMailTaxTotal & vbCrLf &_ "Shipping: " & strMailShipping & " " & strShippingMethod & " " & strShippingType & vbCrLf &_ "Order Total: " & strMailOrderTotal If strEmailComponent = "Persits" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strMailServer Mail.Username = strCoEmail Mail.Password = strEmailPWD Mail.From = strCoEmail Mail.AddAddress strEmail 'Mail.AddCC strCoEmail Mail.Subject = strOrderNumber & " " & strMyCoName & " Online Order" Mail.Body = strBody2 On Error Resume Next Mail.Send Set Mail = Nothing IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through email." & Err.Description END IF ElseIf strEmailComponent = "CDOSYS" Then Set cdoMail = Server.CreateObject("CDO.Message") cdoMail.From = strCoEmail cdoMail.To = strEmail cdoMail.Subject = strOrderNumber & " " & strMyCoName & " Online Order" cdoMail.TextBody = strBody2 On Error Resume Next cdoMail.Send() IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through the CDOSYS Email." & Err.Description END IF Set cdoMail = Nothing ElseIf strEmailComponent = "CDONTS" Then Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strCoEmail objCDOMail.To = strEmail 'objCDOMail.Cc = strCoEmail objCDOMail.Subject = strOrderNumber & " " & strMyCoName & " Online Order" objCDOMail.Body = strBody2 objCDOMail.Importance = 1 On Error Resume Next objCDOMail.Send Set objCDOMail = Nothing IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through email." & Err.Description END IF Else End If %> Order <%= strOrderNumber %> - <%= strMyCoName %> - Thank You
<%= strMyCoName%>

Purchase Order

<%= strCoUrl%>

<%= strCoEmail%>

A bill of sale will be sent with the products.

Download products below by clicking the Item Number of each downloadable Item.

<%= strFName %> <%= strLName %>,
Order <%= strOrderNumber %> is now complete. Date: <%= Date()%> Time: <%= Time()%> 

 

Print this page or click File then Save As. You will need this information to track this order.
Customer Information Order Information

<%= Ucase(strFName)%>  <%=Ucase (strMName)%>  <%=Ucase (strLName)%>

<%= Ucase(strCoName)%>

<%= Ucase(strAddress)%>

<%= Ucase(strAddress2)%>

<% If (strCountryCode = "US") Then %>

<%= Ucase(strCity) %>, <%= strState %> <%= strZipCode %>

<%= strCountry %>

<% Else %>

<%= UCase(strCity) %> <%= strZipCode %>

<%= strCountry %> (<%= strCountryCode %>)

<% End If %>

<%= strEmail %>

<% If (strPhoneEx <> "") Then %>

<%= strAreaCode %>-<%= strPhoneEx %>-<%= strPhoneNum %>

<% End If %> <% If (strPhoneEx2 <> "") Then %>

<%= strAreaCode2 %>-<%= strPhoneEx2 %>-<%= strPhoneNum2 %>

<% End If %> <% If (strInternationalPhone <> "") Then %>

<%= strInternationalPhone %>

<% End If %>

Order Number: <%= strOrderNumber %>

Date: <%= Date()%>

Time: <%= Time()%>

Host IP: <%= strIp %>

Read Disclaimer: <%= strDisclaimer %>
<% If strShipAlternate = "Yes" Then %>
Shipping Address (alternate) Order Number: <%= strOrderNumber %>

<%=Ucase (strShipFName)%>  <%=Ucase (strShipLName)%>

<%=Ucase (strShipCoName)%>

<%=Ucase (strShipAddress)%>

<%=Ucase (strShipAddress2)%>

<% If (strShipCountryCode = "US") Then %>

<%= strShipCity %>, <%= strShipState %> <%= strShipZipCode %>

<%= strShipCountry %> (<%= strShipCountryCode %>)

<% Else %>

<%= strShipCity %> <%= strShipZipCode %>

<%= strShipCountry %> (<%= strShipCountryCode %>)

<% End If %>
<% ElseIf strShipAlternate = "No" Then %>
Shipping Address (same) Order Number: <%= strOrderNumber %>

<%=Ucase (strFName)%>  <%=Ucase (strLName)%>

<%=Ucase (strCoName)%>

<%=Ucase (strAddress)%>

<%=Ucase (strAddress2)%>

<% If (strCountryCode = "US") Then %>

<%= Ucase(strCity) %>, <%= strState %> <%= strZipCode %>

<%= strCountry %>

<% Else %>

<%= UCase(strCity) %> <%= strZipCode %>

<%= strCountry %> (<%= strCountryCode %>)

<% End If %>
<% End If %> <% DIM mySQL6, objRS6 Set objRS6 = Server.CreateObject("ADODB.Recordset") mySQL6 = "SELECT * FROM Cart Where CartId ='"& strCartId & "'" objRS6.Open mySQL6, objConn Dim strCheckDownload %> <% DO WHILE NOT objRS6.EOF strCheckDownload = strCheckDownload & "," & objRS6("Download") %> <% If (objRS6("Download") = "Yes") Then %> <% Else %> <% End If %> <% strNotes = objRS6("Notes") If (strNotes <> "") Then %> <% End If %> <% objRS6.MoveNext Loop %>

Item #

Quantity

Options

Description

Each

Amount
" target="_blank"><%=objRS6("ItemNum")%><%=objRS6("ItemNum")%><%=objRS6("Quantity")%> <%=objRS6("Opt1")%> <%=objRS6("Opt2")%> <%=objRS6("Opt3")%> <%=objRS6("Description")%> <%= strCurrencySymbol %><%= FormatNumber(objRS6("Price"),2) %> <%= strCurrencySymbol %><%= FormatNumber(objRS6("ItemTotal"),2) %>
Notes: <%= strNotes %>
<% If strCartTotal <> "" Then Else strCartTotal = 0 End If If strTaxTotal <> "" Then Else strTaxTotal = 0 End If If strShipping <> "" Then Else strShipping = 0 End If If strOrderTotal <> "" Then Else strOrderTotal = 0 End If %>

Subtotal:

VAT:

<%If strShippingMethod = "UPS" Then: Response.Write strShippingType & " ": End If%>Shipping:

Order Total:

<%= strCurrencySymbol %><%= FormatNumber(strCartTotal,2) %> <%= strCurrencyCode %>

<%= strCurrencySymbol %><%= FormatNumber(strTaxTotal,2) %> <%= strCurrencyCode %>

<%= strCurrencySymbol %><%= FormatNumber(strShipping,2) %> <%= strCurrencyCode %>

<%= strCurrencySymbol %><%= FormatNumber(strOrderTotal,2) %> <%= strCurrencyCode %>
<% If inStr(strCheckDownload, "Yes") Then %>

You have purchased downloadable items. Click the Item Numbers above to download. Then click save and choose a folder.
<% End If %>
Thank you for your order. 

Please allow 4 to 6 week for delivery.

[ Home Page ]

<% ' Empty Cart objConn.Execute "Delete From Cart where CartId='" & strCartId & "'" %>