<%@ Language=VBScript %> <% Response.Buffer=true %>

Account Access <% Dim LaunConn Dim CookCartID Dim objFSO Set LaunConn=Server.CreateObject("ADODB.Connection") LaunConn.Open "DSN=LaundryCarts;" CookCartID = Session("CookCartID") CustID = Session("CustID") %> <% If Request.Form("Login") <> "" Then strSQL = "SELECT CustomerID, BFirstName FROM Customer WHERE Email LIKE '" & Request.Form("email") & "' AND Password LIKE '" & Request.Form("Password") & "'" Set LaunDB = LaunConn.Execute(strSQL) If NOT LaunDB.EOF Then CustID = LaunDB("CustomerID") Session("CustID")=CustID LaunDB.Close Set LaunDB = Nothing Else Response.Write "Incorrect Login" End If End If If CustID <> "" Then strSQL = "SELECT CustomerID, BFirstName, seclvl FROM Customer WHERE CustomerID LIKE '" & CustID & "'" Set LaunDB = LaunConn.Execute(strSQL) Name = LaunDB("BFirstName") Level = LaunDB("seclvl") Session("Level") = Level %> <% Response.write "Welcome, " & LaunDB("bfirstname") & ", please select one of these options. "%> <% if Session("level") <> 4 Then %> <% End If if Session("level") = 4 Then %> <% ElseIf Session("level") = 3 Then %> <% End If LaunDB.Close Set LaunDB = Nothing %> Log out and return to laundry-carts.com ">View Your Order Status/History Pricing/Description Administration Review Customer Accounts (Delete Enabled) Create an E-Mail Blast Orders Management Modify Shipping Rates Orders Management <% Else LaunConn.Close Set LaunConn = Nothing If CustID = "" Then %> Account info:   e-mail: " size="25">   password: " size="15">   <% End If End If %>

Call Us: 1-866-891-5513, Email Us: parts@sterlingequipmentco.com All contents © copyright 2004 Laundry Cart Co., All rights reserved.