Customer Verify

<% Response.Buffer = True %> <% Response.Expires = -1 %> <% If Request.Form("Disclaimer") = "Yes" Then Dim strDisclaimer strDisclaimer = Request.Form("Disclaimer") Else Response.Redirect "error.asp?Error=You must agree to the Disclaimer before you can continue.

" &_ "Please use the back button and read the disclaimer.

" &_ "Then check the box that says I have read the Disclaimer and I agree with all terms and conditions.

" &_ "It is located under the Credit Card and Alternate Shipping Info. Just above the Verify Information Button." Response.End End If Dim strIp strIp = Request.ServerVariables("REMOTE_HOST") Dim strCartId strCartId = Request("CartId") Dim strEmail strEmail = Request.Form("Email") Dim strPWD strPWD = Request.Form("PWD") Dim strUrl If strUseSecure = "Yes" Then strUrl = strSecureUrl Else strUrl = strCoUrl End If If Request.Form("ShipAlternate") = "Yes" Then If Request.Form("ShipFName") = "" Then Response.Redirect "error.asp?Error=You must enter a First Name in the shipping area if you choose Yes to alternate address." Response.End ElseIf Request.Form("ShipLName") = "" Then Response.Redirect "error.asp?Error=You must enter a Last Name in the shipping area if you choose Yes to alternate address." Response.End ElseIf Request.Form("ShipAddress") = "" Then Response.Redirect "error.asp?Error=You must enter an Address in the shipping area if you choose Yes to alternate address." Response.End ElseIf Request.Form("ShipCity") = "" Then Response.Redirect "error.asp?Error=You must enter a City in the shipping area if you choose Yes to alternate address." Response.End ElseIf Request.Form("ShipState") = "Select State" Then Response.Redirect "error.asp?Error=You must enter a State in the shipping area if you choose Yes to alternate address." Response.End ElseIf Request.Form("ShipZipCode") = "" Then Response.Redirect "error.asp?Error=You must enter a Zip Code in the shipping area if you choose Yes to alternate address." Response.End End If Else End If DIM mySQL, objRS mySQL = "SELECT * FROM Customers Where Email='"& strEmail &"' And PWD='" & strPWD & "'" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn ' Cust Account info DIM strCustNumber strCustNumber = objRS("CustNumber") Session("CustNumber") = strCustNumber Dim strFName strFName = objRS("FName") Dim strMName strMName = objRS("MName") Dim strLName strLName = objRS("LName") DIM strCoName strCoName = objRS("CoName") Dim strAddress strAddress = objRS("Address") Dim strAddress2 strAddress2 = objRS("Address2") Dim strCity strCity = objRS("City") Dim strState strState = objRS("State") Dim strZipCode strZipCode = objRS("ZipCode") Dim strCountry strCountry = objRS("Country") Dim strAreaCode strAreaCode = objRS("AreaCode") Dim strPhoneEx strPhoneEx = objRS("PhoneEx") Dim strPhoneNum strPhoneNum = objRS("PhoneNum") Dim strAreaCode2 strAreaCode2 = objRS("AreaCode2") Dim strPhoneEx2 strPhoneEx2 = objRS("PhoneEx2") Dim strPhoneNum2 strPhoneNum2 = objRS("PhoneNum2") Dim strInternationalPhone strInternationalPhone = objRS("InternationalPhone") ' Shipping Dim strShipAlternate strShipAlternate = Request.Form("ShipAlternate") Session("ShipAlternate") = strShipAlternate Dim strShipFName strShipFName = Request.Form("ShipFName") Session("ShipFName") = strShipFName Dim strShipLName strShipLName = Request.Form("ShipLName") Session("ShipLName") = strShipLName Dim strShipCoName strShipCoName = Request.Form("ShipCoName") Session("ShipCoName") = strShipCoName Dim strShipAddress strShipAddress = Request.Form("ShipAddress") Session("ShipAddress") = strShipAddress Dim strShipAddress2 strShipAddress2 = Request.Form("ShipAddress2") Session("ShipAddress2") = strShipAddress2 Dim strShipCity strShipCity = Request.Form("ShipCity") Session("ShipCity") = strShipCity Dim strShipState strShipState = Request.Form("ShipState") Session("ShipState") = strShipState Dim strShipZipCode strShipZipCode = Request.Form("ShipZipCode") Session("ShipZipCode") = strShipZipCode Dim strShipCountry strShipCountry = Request.Form("ShipCountry") Session("ShipCountry") = strShipCountry Dim strShipCountryCode strShipCountryCode = Request.Form("ShipCountryCode") Dim strShippingType strShippingType = Request.Form("ShippingType") Dim strShippingMethod strShippingMethod = Request.Form("ShippingMethod") ' Order monetary values. ' Disclaimer var is dimmed at top of page Session("Disclaimer") = strDisclaimer Dim strCartTotal If Request.Form("CartTotal") <> "" Then strCartTotal = Request.Form("CartTotal") Else strCartTotal = 0 End If Session("CartTotal") = strCartTotal Dim strTaxTotal If Request.Form("TaxTotal") <> "" Then strTaxTotal = Request.Form("TaxTotal") Else strTaxTotal = 0 End If Session("TaxTotal") = strTaxTotal Dim strShipping If Request.Form("Shipping") <> "" Then strShipping = Request.Form("Shipping") Else strShipping = 0 End If Session("Shipping") = strShipping Dim strOrderTotal If Request.Form("OrderTotal") <> "" Then strOrderTotal = Request.Form("OrderTotal") Else strOrderTotal = 0 End If Session("OrderTotal") = strOrderTotal Session.Timeout = 60 %> Customer Verify text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">

<%=objRS("FName")%>,
Please verify your information and click "Continue to PayPal Check Out" below or use your back button to make changes.

Please read the following instructions.

After credit card processing click the Return Button to return to this site.
You can then login to the customer's area and print a copy of your order.
Should you encounter problems, please use our contact page to report them.

Account Information

Account Number: <%=objRS("CustNumber")%>

<%=objRS("FName")%> <%=objRS("MName")%> <%=objRS("LName")%>

<%=objRS("CoName")%>

<%=objRS("Address")%>

<%=objRS("Address2")%>

<%=objRS("City")%>, <%=objRS("State")%>. <%=objRS("ZipCode")%>

<%=objRS("Country")%>

<%=objRS("Email")%>

<%=objRS("AreaCode")%>-<%=objRS("PhoneEx")%>-<%=objRS("PhoneNum")%>	<%=objRS("AreaCode2")%>-<%=objRS("PhoneEx2")%>-<%=objRS("PhoneNum2")%>
<%=objRS("InternationalPhone")%>

<% If Request.Form("ShipAlternate") = "Yes" Then %>

Shipping Information

<%=Request.Form("ShipFName")%> <%=Request.Form("ShipLName")%>

<%=Request.Form("ShipCoName")%>

<%=Request.Form("ShipAddress")%>

<%=Request.Form("ShipAddress2")%>

<%=Request.Form("ShipCity")%>, <%=Request.Form("ShipState")%>. <%=Request.Form("ShipZipCode")%>

<%=Request.Form("ShipCountry")%>

<% Else End If %> <% DIM mySQL2, objRS2 Set objRS2 = Server.CreateObject("ADODB.Recordset") mySQL2 = "SELECT * FROM Cart Where CartId ='"& strCartId & "' Order By ListNum" objRS2.Open mySQL2, objConn IF objRS2.EOF THEN Response.Write "Your shopping cart is empty." Else %>

<% Dim strOpt1 Dim strOpt2 Dim strOpt3 DO WHILE NOT objRS2.EOF If objRS2("Opt1") = "0" Then strOpt1 = "" Else strOpt1 = objRS2("Opt1") End If If objRS2("Opt2") = "0" Then strOpt2 = "" Else strOpt2 = objRS2("Opt2") End If If objRS2("Opt3") = "0" Then strOpt3 = "" Else strOpt3 = objRS2("Opt3") End If %> <% objRS2.MoveNext Loop %> <% End If %>

Item #	Quantity	Options	Description	Each	Amount
<%=objRS2("ItemNum")%>	<%=objRS2("Quantity")%>	<%= strOpt1 %>	<%=objRS2("Description")%>	<%=(FormatCurrency (objRS2("Price"),2))%>	<% Response.Write FormatCurrency (objRS2("Price") * objRS2("Quantity"),2) %>

Subtotal:

VAT:

Shipping:

Total:

<%=FormatCurrency (strCartTotal,2)%>

<%=FormatCurrency (strTaxTotal,2)%>

<%=FormatCurrency (strShipping,2)%>

<%=FormatCurrency (strOrderTotal,2)%>