<%Option Explicit if session("Logged") <> true then response.redirect "../Logon.asp" end if session.lcid=2057 %> School Report System <% dim userid, rs, sql, firstname, surname, admin, teach, parent, action userid=request.querystring("userid") action=request.querystring("action") If userid <> "" and action="D" then sql = "Delete * from users where userid = '" & userid & "';" conn.Execute sql response.redirect "displayuser.asp" else %>

  User:

<%=session("name")%>

  User ID:

<%=session("userid")%>

  Role:

<%=session("Role")%>
Log out
 
 
Main Menu
 
<% set rs = server.CreateObject("adodb.recordset") sql="SELECT * FROM users" rs.open sql, conn,2,2 do while not rs.eof userid=rs("userid") firstname=rs("firstname") surname=rs("surname") if rs("admin")="True" then :admin="checked":else: admin="": end if if rs("teacher")="True" then : teach="checked": else:teach="":end if if rs("parent")="True" then : parent="checked": else:parent="":end if %> <% rs.movenext loop%>
Logon ID Firstname Surname Admin Teacher Parent Edit Delete
<%response.write userid%> <%response.write Firstname%> <%response.write surname%> value="ON"> value="ON"> value="ON">
<%end if%>