<% 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 %>

Pelgrane Customers

Order Tracking, Redownload and Serial Numbers

Please enter the email address you used to make your order and click "Track" below to resend your order information. The email will contain links to download all products and serial numbers you have ordered from Pelgrane since November 2005.

Email Address

If you no longer have access to the email account you used to place the order, please contact us by e-mail, with your full name and previous email address.

Please note:

You must allow emails from dyingearth.com in order to receive the email. Don't block us as spam. If you've ordered recently and haven't received your order link email, this might be the problem.

 

Individual Orders

If you want to check a specific order and have the order number handy, you can out in your last name and the order number below, and proceed immediately to the order details page:

Last Name
Order Reference Number
<% end sub sub subError %>

No matching orders

No 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.

<% end sub sub subListOrders dim strMsg, strHtml, strURL, strDate, strOrderNum, nSpace strMsg = "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." + VbCrLf + VbCrLf strMsg = strMsg + "The following order(s) exist on our system with the e-mail address " & strEmail & ". Most recent orders are shown first. To view each order, click on the link." & VbCrLf& VbCrLf strMsg = strMsg & "Order(s):" & VbCrLf strHtml = "

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):