<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% If Session("ValidatedAdministrator") <> True Then Response.Redirect "error.asp?error=denied" End If %> Administer Visual Basic Student Accounts <% Dim objRS Dim sSQL Dim i Dim strTmp Dim bAdmin 'Admin can see ALL student records, Teachers only see their student's records and their own If Session("Admin") = "Admin" Then sSQL = "SELECT * FROM Students ORDER BY security, name;" bAdmin = True Else sSQL = "SELECT * FROM Students WHERE teacher = '" & Session("admin") & "' ORDER BY security, classtype, meetday, name;" bAdmin = False End If Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText 'Don't try displaying non-existent records If Not (objRS.EOF And objRS.BOF) Then objRS.MoveFirst %>

VB Student List - <%=Session("admin")%>

<% If bAdmin Then %> <% End If %> <% Do While Not objRS.EOF %> <% If IsNull(objRS("meetday")) Then %> <% Else %> <% End If If IsNull(objRS("meetday")) Then %> <% Else %> <% End If If IsNull(objRS("teacher")) Then %> <% Else i = InStr(objRS("teacher"), ",") strTmp = Mid(objRS("teacher"), 1, i-1) %> <% End If If IsNull(objRS("folder")) Then %> <% Else %> <% End If %> <% If IsNull(objRS("modified")) Then %> <% Else %> <% End If If IsNull(objRS("lastlogin")) Then %> <% Else strTmp = objRS("lastlogin") i = Instr(objRS("lastlogin"), "-") If i > 0 Then strTmp = Mid(objRS("lastlogin"), 1, i-1) & "
" & Mid(objRS("lastlogin"), i+2) End If %> <% End If If bAdmin Or objRS("security") = vbStudent Then If objRS("active") = True Then %> <% Else %> <% End If Else %> <% End If If bAdmin Then %> <% End If If bAdmin Or objRS("security") = vbStudent Then %> <% Else %> <% End If %> <% objRS.MoveNext Loop %>

Name Email Class Meets Teacher Folder Created Modified Last Login Active Sec Delete

"><%= objRS("name")%> "><%=objRS("email")%> <%= objRS("classtype") %> <%= objRS("meetday") %> <%= strTmp %> "><%=objRS("folder")%> <%= objRS("created") %> <%= objRS("modified") %> <%= strTmp %> Y" VALUE="yes"> N" VALUE="no"> Y" VALUE="yes"> N" VALUE="no"> " SIZE="1"> ">

<% Else ' No Records Message Response.Write("

Name	Email	Class	Meets	Teacher	Folder	Created	Modified	Last Login	Active	Sec	Delete
"><%= objRS("name")%>	"><%=objRS("email")%>		<%= objRS("classtype") %>		<%= objRS("meetday") %>		<%= strTmp %>		"><%=objRS("folder")%>	<%= objRS("created") %>		<%= objRS("modified") %>		<%= strTmp %>	Y" VALUE="yes"> N" VALUE="no">	Y" VALUE="yes"> N" VALUE="no">		" SIZE="1">	">

No Records Found!

") End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>