<%if request.form("OrdNum")<>"" then
strSQL="SELECT BName,BAddress,BCity,BState,BZip,BCountry,BPhone,BEmail,SName,SCompany,SAddress,SCity,SState,SZip,SCountry,InvoiceNum,Ordertotal,Semail,Cart_ID,TrackShip,Shipped,ShippedDate FROM Customers WHERE InvoiceNum="&request.form("OrdNum")&" AND BEmail='"&request.form("Email")&"' AND Completed=-1"
Set rscust = CreateObject("ADODB.Recordset")
rscust.Open strSQL, con, adOpenStatic, adLockReadOnly
if not rscust.eof then
ShowInvoice="YES"
else
WrongInvoice="YES"
end if
end if%>
<%if showinvoice="" then%>
<%if wronginvoice<>"" then%>
Sorry, That Information Doesn't Match With An Order In Our Database.. Please Try Again.
<%end if%>
Track Your Order > > >
Order Information
To check on your orders status, please fill in your Email Address and the Purchase Order Number
<%end if%>
<%if ShowInvoice<>"" then%>
Thank You For Ordering With EnergySaverHomes.com
Purchase Order #: <%=rscust("InvoiceNum")%>
Billing Information
Shipping Information
Name:
<%=Ucase(rscust("BName"))%>
Address:
<%=Ucase(rscust("Baddress"))%>
City:
<%=Ucase(rscust("Bcity"))%>
State:
<%=Ucase(rscust("Bstate"))%>
Postal Code:
<%=Ucase(rscust("Bzip"))%>
Country:
<%=Ucase(rscust("Bcountry"))%>
Phone:
<%=Ucase(rscust("Bphone"))%>
Email Address:
<%=Ucase(rscust("Bemail"))%>
Name:
<%=Ucase(rscust("Sname"))%>
Company:
<%=Ucase(rscust("Scompany"))%>
Address:
<%=Ucase(rscust("Saddress"))%>
City:
<%=Ucase(rscust("Scity"))%>
State:
<%=Ucase(rscust("Sstate"))%>
Postal Code:
<%=Ucase(rscust("Szip"))%>
Country:
<%=Ucase(rscust("Scountry"))%>
Email Address:
<%=Ucase(rscust("Semail"))%>
Product
Quantity
Status / Tracking
<%
Subtotal=0
strSQL="SELECT Prod_ID,Quantity FROM Shopcart,Products,Categories WHERE Cart_ID="&rscust("Cart_ID")&" AND Products.ID=Prod_ID AND Cat_ID=Categories.ID"
Set rstcart = CreateObject("ADODB.Recordset")
rstcart.Open strSQL, con, adOpenStatic, adLockReadOnly
do
strSQL="SELECT * FROM Products WHERE ID="&rstcart("Prod_ID")&""
Set rstp = CreateObject("ADODB.Recordset")
rstp.Open strSQL, con, adOpenStatic, adLockReadOnly
%>
<%if noshow="" then%>