Customer Order Detials

<% Dim strYear strYear = FormatDateTime(Date,2) strYear = Right(strYear,4) %> Customer Order Detials <% Dim strOrderNumber strOrderNumber = Request.QueryString("OrderNumber") Dim strEmail strEmail = Request.QueryString("Email") DIM mySQL, objRS mySQL = "SELECT * FROM Orders Where OrderNumber='"& strOrderNumber &"' And Email='"& strEmail &"'" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn IF objRS.EOF THEN Response.Redirect "error.asp?Error=Sorry, "& strOrderNumber &" is not in the database." Response.End END IF Dim strCartTotal Dim strTaxTotal Dim strShippingCost Dim strOrderTotal If objRS("CartTotal") <> "" Then strCartTotal = objRS("CartTotal") Else strCartTotal = 0 End If If objRS("TaxTotal") <> "" Then strTaxTotal = objRS("TaxTotal") Else strTaxTotal = 0 End If If objRS("ShippingCost") <> "" Then strShippingCost = objRS("ShippingCost") Else strShippingCost = 0 End If Dim strShippingType strShippingType = objRS("ShippingType") ' SHIPPING METHOD DIMMED IN SHIPPING_SETTINGS.ASP IF REMOVED - DIM HERE strShippingMethod = objRS("ShippingMethod") If objRS("OrderTotal") <> "" Then strOrderTotal = objRS("OrderTotal") Else strOrderTotal = 0 End If %>

<%= strMyCoName %>
Order Details

Order Number: <%=objRS("OrderNumber")%>

Order Date: <%=objRS("OrderDate")%>

Order Time: <%=objRS("OrderTime")%>

Shipping Date: <%=objRS("ShipDate")%>

Account Information

Order Information

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

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

<%=(Ucase (objRS("Address")))%>

<%=(Ucase (objRS("Address2")))%>

<% If (objRS("CountryCode") = "US") Then %>

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

<%=objRS("Country")%>

<% Else %>

<%=(Ucase (objRS("City")))%> <%=objRS("ZipCode")%>

<%=objRS("Country")%> (<%=objRS("CountryCode")%>)

<% End If %>

<%=objRS("Email")%>

<% If (objRS("PhoneEx") <> "") Then %>

<%=objRS("AreaCode")%>-<%=objRS("PhoneEx")%>-<%=objRS("PhoneNum")%> <% End If %> <% If (objRS("PhoneEx2") <> "") Then %>

<%=objRS("AreaCode2")%>-<%=objRS("PhoneEx2")%>-<%=objRS("PhoneNum2")%> <% End If %> <% If (objRS("InternationalPhone") <> "") Then %>

<%=objRS("InternationalPhone")%> <% End If %>

eBay User Id: <%=objRS("EbayUserId")%>

Order Number: <%= objRS("OrderNumber") %>

Date: <%= objRS("OrderDate") %>

Time: <%= objRS("OrderTime") %>

Read Disclaimer: <%=objRS("Disclaimer")%>

Host IP: <%= objRS("HostIP") %>

Approval Code: <%= objRS("CCApproval") %>

Transaction Id: <%= objRS("TransId") %>

Shipping Date: <%= objRS("ShipDate") %> <% If objRS("UPSTrackingId") <> "" Then %>

<% End If %>

<% If objRS("ShipAlternate") = "Yes" Then %>

Shipping Address (Alternate)

<%=(Ucase (objRS("ShipFName")))%> <%=(Ucase (objRS("ShipLName")))%>

<%=(Ucase (objRS("ShipCoName")))%>

<%=(Ucase (objRS("ShipAddress")))%>

<%=(Ucase (objRS("ShipAddress2")))%>

<% If (objRS("ShipCountryCode") = "US") Then %>

<%=(Ucase (objRS("ShipCity")))%>, <%=objRS("ShipState")%>. <%=objRS("ShipZipCode")%>

<%=objRS("Country")%>

<% Else %>

<%=(Ucase (objRS("ShipCity")))%> <%=objRS("ShipZipCode")%>

<%=objRS("ShipCountry")%> (<%=objRS("ShipCountryCode")%>)

<% End If %>

<% ElseIf objRS("ShipAlternate") = "No" Then %>

Shipping Address (Same)

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

<%=(Ucase (objRS("CoName")))%>

<%=(Ucase (objRS("Address")))%>

<%=(Ucase (objRS("Address2")))%>

<% If (objRS("CountryCode") = "US") Then %>

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

<%=objRS("Country")%>

<% Else %>

<%=(Ucase (objRS("City")))%> <%=objRS("ZipCode")%>

<%=objRS("Country")%> (<%=objRS("CountryCode")%>)

<% End If %>

<% End If %> <% DIM mySQL2, objRS2 Set objRS2 = Server.CreateObject("ADODB.Recordset") mySQL2 = "SELECT * FROM OrderItems Where OrderNumber ='"& strOrderNumber & "'" objRS2.Open mySQL2, objConn IF objRS.EOF THEN Response.Write "That Order Number does nor exist in the database." Else %> <% Dim strPrice Dim strItemTotal Dim strNotes Dim strEbayItemNumber DO WHILE NOT objRS2.EOF If objRS2("Price") <> "" Then strPrice = objRS2("Price") Else strPrice = 0 End If If objRS2("ItemTotal") <> "" Then strItemTotal = objRS2("ItemTotal") Else strItemTotal = 0 End If %> <% If (objRS2("Download") = "Yes") Then %> <% Else %> <% End If %> <% strEbayItemNumber = objRS2("EbayItemNumber") If (strEbayItemNumber <> "") Then %> <% End If %> <% strNotes = objRS2("Notes") If (strNotes <> "") Then %> <% End If %> <% objRS2.MoveNext Loop %> <% End If %>

Item #	Quantity	Options	Description	Each	Amount
" target="_blank"><%=objRS2("ItemNum")%>	<%=objRS2("ItemNum")%>	<%=objRS2("Quantity")%>	<%=objRS2("Opt1")%> <%=objRS2("Opt2")%> <%=objRS2("Opt3")%>	<%=objRS2("Description")%>	<%= strCurrencySymbol %><%= FormatNumber(strPrice,2) %>	<%= strCurrencySymbol %><%= FormatNumber(strItemTotal,2) %>
This is an eBay Order. You have purchased eBay item: <%=strEbayItemNumber%>
Notes: <%= strNotes %>

Subtotal:	<%= strCurrencySymbol %><%= FormatNumber(strCartTotal,2) %> <%= strCurrencyCode %>
VAT:	<%= strCurrencySymbol %><%= FormatNumber(strTaxTotal,2) %> <%= strCurrencyCode %>
<%If strShippingMethod = "UPS" Then: Response.Write strShippingType & " ": End If%>Shipping:	<%= strCurrencySymbol %><%= FormatNumber(strShippingCost,2) %> <%= strCurrencyCode %>
Order Total:	<%= strCurrencySymbol %><%= FormatNumber(strOrderTotal,2) %> <%= strCurrencyCode %>

Customer Home Page

UPS®, UPS & Shield Design® and UNITED PARCEL SERVICE® are registered trademarks of United Parcel Service of America, Inc.