<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next %> <% Dim logonId, UserName, Password, Level 'These Values Collect the data from the selectuser.asp form logonId = Request("selectedadmin") UserName = Request("UserName") Password = Request("Password") Level = Request("Level") query = "SELECT * FROM Logon WHERE logonId = " & logonId Set RSconn = Conn.Execute(Query) 'these values are generated from the database logonId = RSconn("logonId") UserName = RSconn("UserName") Passwords = RSconn("Passwords") Level = RSconn("Levels") %>

Edit User User Name :   Passwords :   Admin Levels :   <%= Level %> Changed Admin Levels : <% do until RSconn.EOF %> "><%=RSconn("Levels")%> Change to Admin Levels Change to Author Levels <% RSconn.movenext loop RSconn.close set RSconn = nothing %>

<%= end_conna() %>