<%@ Language=VBScript %> <% Response.Buffer=true %> Laundry Carts
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">
 
 
<% 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.