% option Explicit %> <% dim strEmail dim objConnect, objRS dim strQuery xsubHeader "Pelgrane Order Tracking", 1 strEmail = "" if Request.Form("txtEmail") <> "" then strEmail = xfnSanitize(Request.Form("txtEmail")) if strEmail <> "" then 'find orders matching email strQuery = "SELECT orderdate, ordernumber, lastname, email FROM mailorder_customers WHERE email='" & strEmail & "';" Set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open strSiteDB set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strQuery, objConnect, adOpenStatic, adLockReadOnly if objRS.EOF then subError else subListOrders end if objRS.Close objConnect.Close set objRS = Nothing set objConnect = Nothing else subGetEmail end if xsubFooter Response.End sub subGetEmail %>
No matching ordersNo orders were placed using the e-mail address you just gave. Please note, your order details are only available here if you ordered from pelgranepress.com since October 2001. Please go back and try again. |
This message has been sent automatically in response to a search at pelgranepress.com for orders placed with your e-mail address. If you did not initiate this search, please let us know but do not worry – these details have not been sent anywhere other than this e-mail address.
" strHtml = strHtml + "The following order(s) exist on our system with the e-mail address " & strEmail & ". Most recent orders are shown first. To view an order, click on the link.
" strHtml = strHtml & "Order(s):
Please contact " & strSupportEmail & " if you have any other questions.
" strHtml = strHtml & "Thank you,
" strMsg = strMsg & "Pelgrane Press Ltd" Dim arrMsg(3) arrMsg(1) = strMsg arrMsg(2) = strHtml xsubSendEmail strEmail, "Order history at pelgranepress.com", arrMsg, "" %>Details of your orders have been sent to <%=strEmail%> and should arrive in the next few minutes. Please check that your anti-spam options are set to receive mail from profantasy.com.
Please contact us by e-mail if you no longer have access to the same e-mail address.