Customer Accounts List <% if Session("level") < 4 Then Response.Redirect ("AdminMenu.asp") End If strSQL = "SELECT * FROM Customer ORDER BY CustomerID" Set RsCust = LaunConn.Execute(strSQL) RsCust.MoveFirst %> <%if Session("level")=4 Then%> <%End If%> <% Do While Not RsCust.EOF %> <%if Session("level")=4 Then%> <%End If%> <% RsCust.MoveNext Loop RsCust.Close Set RsCust = Nothing LaunConn.Close Set LaunConn = Nothing %> Date E-MAIL First Name Last Name State Modify History Delete <%= RsCust("SignupDate")%>  <%= RsCust("Email")%> <%= RsCust("BFirstName")%> <%= RsCust("BLastName")%> <%= RsCust("BState")%> ">Modify ">History ">Delete