<% strUserName = Request.Form("cboUserName") session("UserName2") = strUserName strAction = Request.Form("cmdAction") ' Create a recordset object to store specific table information Set objRS = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblLogin order by accesslevel, LastName" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 if Request.Form <> "" then if warningErrMsg = "" then if strAction = "Edit" then ' Create a recordset object to store specific table information Set obj1 = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblLogin where (UserName = '" + strUserName + "')" 'Set the recordset object equal to the SQL query string obj1.Open SQL, objADO, 1, 3 if obj1.Fields("AccessLevel") = "1" then response.Redirect "EditAdmin.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "2" then response.Redirect "EditAgent.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "3" then response.Redirect "EditUser.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "4" then response.Redirect "EditServices.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "5" then response.Redirect "EditAdvertiser.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "6" then response.Redirect "EditAgent.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "7" then response.Redirect "EditUser.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "8" then response.Redirect "EditServices.asp?Id=" & strUserName end if if obj1.Fields("AccessLevel") = "9" then response.Redirect "EditAdvertiser.asp?Id=" & strUserName end if end if if strAction = "Delete" then Response.Redirect "DeleteUsers.asp" end if 'if strAction = "Detail" then ' Response.Redirect "UserDetail.asp" 'end if end if end if %>

VIEW USERS

Below is a list of current system logins.
Select the appropriate User Name to Edit or Delete the record.

<% if WarningErrMsg <> "" then %>
Error(s):<%= warningErrMsg %>
<% end if %>
<% while not ObjRs.EOF %> <% objRS.MoveNext %> <% wend %>
Last Name First Name User Name Password Email Access Level
<%= objRS("LastName") %> <%= objRS("FirstName") %> <%= objRS("UserName") %> <%= objRS("Password") %> "><%= objRS("EmailAddress") %> <% if objRS("AccessLevel")= "1" then %> Admin <% end if %> <% if objRS("AccessLevel")= "2" then %> Agent <% end if %> <% if objRS("AccessLevel")= "3" then %> User <% end if %> <% if objRS("AccessLevel")= "4" then %> Services <% end if %> <% if objRS("AccessLevel")= "5" then %> Advertiser <% end if %> <% if objRS("AccessLevel")= "6" then %> Free Agent <% end if %> <% if objRS("AccessLevel")= "7" then %> Free User <% end if %> <% if objRS("AccessLevel")= "8" then %> Free Services <% end if %> <% if objRS("AccessLevel")= "9" then %> Free Advertiser <% end if %>

User Name: