<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "umacus","","" Set Session("umacus_conn") = conn %> <% IF Session("UserLoggedIn") <> "True" then response.Redirect "default.php" End If %> Control Panel
Currently Logged In as:
<%=Session("UserFirstName") & " " & Session("UserLastName")%>
Access Level: <%=Session("AccessLevel")%>

Today Is:
<%=FormatDateTime(Date, 1)%>
Instructors

Add Instructor

<% sql = "SELECT * FROM tblInstructors ORDER BY LastName, FirstName " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.RecordCount <> 0 then %> <% varBGCOLOR = "#FFFFFF" do while (not rs.eof) varID = Trim(rs("ID")) varLastName = Trim(rs("LastName")) varFirstName = Trim(rs("FirstName")) varPhoto = Trim(rs("Photo")) %> <% if varBGCOLOR = "#FFFFFF" then varBGCOLOR = "#CCCCCC" else varBGCOLOR = "#FFFFFF" End if rs.MoveNext Loop %>
  Instructor Photo
Edit <%=varLastName%>, <%=varFirstName%> <% IF varPhoto <> "" then %> Edit <% Else %> Add <% End If %>
<% End If %>