<%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  Purchase Order Number:    Email Address:   <%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"))%> <% 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%> <% end if subtotal=subtotal+(rstp("Price")*rstcart("quantity")) rstcart.movenext loop until rstcart.eof %>   Product Quantity Status / Tracking <%=rstp("Descr")%> <%=rstcart("quantity")%><%iquan=iquan+rstcart("quantity")%> <%if rscust("Shipped")=0 then%> Order Processing <%else%> Package Shipped On <%=formatdatetime(rscust("ShippedDate"))%> "> <%end if%>     Order Total:  <%=formatcurrency(rscust("Ordertotal"))%>    <%end if%>