<% If z1_AccessLevel < 2 Then Response.Redirect "ui_index.asp?msg=You do not have access to that page" End If Dim zintUserID,zblnEditUser zintUserID = Trim(Request.QueryString("userid")) If zintUserID <> "" And IsNumeric(zintUserID) Then zblnEditUser = True End If %> kaos news - update area
<% If zblnEditUser Then Dim zobjRS,zstrSQL,zstrUsername,zstrEmail,zstrAccess zstrSQL = "SELECT userInfo.Username, userInfo.Email, userInfo.AccessLevel FROM userInfo WHERE userInfo.UserID LIKE " & zintUserID Set zobjRS = Server.CreateObject("ADODB.Recordset") zobjRS.Open zstrSQL, zobjConn, adOpenForwardOnly, adLockReadOnly, adCmdText zstrUsername = zobjRS("Username") zstrEmail = zobjRS("Email") zstrAccess = zobjRS("AccessLevel") zobjRS.Close Set zobjRS = Nothing %> edit user details:
username change password
email address
access level

click here to submit these changes. <% Else %> add new user:
username
email address
access level
password
retype password

click here to add this user profile. <% End If %>

existing users: <% Dim zobjRS1 Set zobjRS1 = Server.CreateObject("ADODB.Recordset") zstrSQL = "SELECT userInfo.UserID, userInfo.Username, userInfo.Email, userInfo.AccessLevel FROM userInfo ORDER BY userInfo.UserID ASC" zobjRS1.Open zstrSQL, zobjConn, adOpenForwardOnly, adLockReadOnly, adCmdText Dim bgcol bgcol = "eeeeee" Do While Not zobjRS1.EOF Response.Write "" Else Response.Write "" End If zobjRS1.MoveNext If bgcol = "eeeeee" Then bgcol = "dddddd" Else bgcol = "eeeeee" End If Loop zobjRS1.Close zobjConn.Close Set zobjRS1 = Nothing Set zobjConn = Nothing %>
 usernameemail access leveldelete
" & zobjRS1("Username") & "" & zobjRS1("Email") & "" & zobjRS1("AccessLevel") & "" If zobjRS1("AccessLevel") > z1_AccessLevel Then Response.Write "