<%@ 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. "%> <% '********************************************************************************************************* ' Level 1 Options: Customers we don't know and need to contact %> <% %> <% %> <%if Session("level") = 4 Then %> <% ' ' ' %> <% End If LaunDB.Close Set LaunDB = Nothing Else %> Return to laundry-carts.com ">Edit Your Customer Account ">View Your Order Status/History Add a new Customer Account Pricing/Description Administration Update ' Customer Order Status Image Functions Review Customer Accounts (Delete Enabled) Update Customer Order Status Create an E-Mail Blast Gift Certificates <% 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.