<% 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)%>
<% sql = "SELECT * FROM tblInstructors WHERE ID=" & Request("ID") & "; " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 varID = rs("ID") varPhoto = rs("Photo") varSystemFile = "D:\webserv\dinger\umacus.com\webroot\webphotos" & varPhoto Set textObject = CreateObject("Scripting.FileSystemObject") If Not(textObject.FileExists(varSystemFile)) then varPhoto = "" End If %> Instructors - Edit Photo

">
Photo: <% If varPhoto <> "" then %> <% End If %>