<% 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)%>
Calendar - Edit Event

<% SQL = "SELECT * FROM tblCalendar WHERE ID = '" & Trim(Request("ID")) & "' " Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql, conn, 3, 3 varID = Trim(rs("ID")) varDateMonth = Trim(rs("DateMonth")) varDateDay = Trim(rs("DateDay")) varDateYear = Trim(rs("DateYear")) varTitle = Trim(rs("Title")) varMessage = Trim(rs("Message")) %>
Date    
Title
Description