<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> J'AMORI - Track my order <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="1" MM_authFailedURL="login.asp?log=false" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim ordernum__MMColParam ordernum__MMColParam = "1" If (Session("mm_Username") <> "") Then ordernum__MMColParam = Session("mm_Username") End If %> <% Dim ordernum Dim ordernum_numRows Set ordernum = Server.CreateObject("ADODB.Recordset") ordernum.ActiveConnection = MM_msjamori_STRING ordernum.Source = "SELECT * FROM customers WHERE Username = '" + Replace(ordernum__MMColParam, "'", "''") + "'" ordernum.CursorType = 0 ordernum.CursorLocation = 2 ordernum.LockType = 1 ordernum.Open() ordernum_numRows = 0 %>
     
 
Please note: you can access the UPS tracking system (only) from within our site, to track items shipped via other means, you will need to logon to their individual sites and enter your tracking number manually
">
 
     
<% ordernum.Close() Set ordernum = Nothing %>