<% 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

Add Event

<% sql = "SELECT * FROM tblCalendar ORDER BY DateYear Desc, DateMonth Desc, DateDay Desc" 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")) varDateMonth = Trim(rs("DateMonth")) varDateDay = Trim(rs("DateDay")) varDateYear = Trim(rs("DateYear")) varTitle = Trim(rs("Title")) varCategory = Trim(rs("Category")) if varDateMonth = "1" then varDateMonth = "January" End If if varDateMonth = "2" then varDateMonth = "February" End If if varDateMonth = "3" then varDateMonth = "March" End If if varDateMonth = "4" then varDateMonth = "April" End If if varDateMonth = "5" then varDateMonth = "May" End If if varDateMonth = "6" then varDateMonth = "June" End If if varDateMonth = "7" then varDateMonth = "July" End If if varDateMonth = "8" then varDateMonth = "August" End If if varDateMonth = "9" then varDateMonth = "September" End If if varDateMonth = "10" then varDateMonth = "October" End If if varDateMonth = "11" then varDateMonth = "November" End If if varDateMonth = "12" then varDateMonth = "December" End If varDate = varDateMonth & " " & varDateDay & ", " & varDateYear %> <% if varBGCOLOR = "#FFFFFF" then varBGCOLOR = "#CCCCCC" else varBGCOLOR = "#FFFFFF" End if rs.MoveNext Loop %>
  Date Event
Edit <%=varDate%> <%=varTitle%>
<% End If %>