<% Set settingsRS = Server.CreateObject("ADODB.RecordSet") settingsSQL = "Select sitetitle from tblSettings;" 'Response.Write dataSQL 'response.end settingsRS.Open settingsSQL, whtConn '******* sitetitle = settingsRS("sitetitle") settingsRS.close set settingsRS = nothing %> ::. Hoover Fire Department .:: <% '*****GRAB PAGE NAMES FROM DATABASE TO CREATE SIDE MENU***** Set menuRS = Server.CreateObject("ADODB.RecordSet") menuSQL = "Select pagename, ID, directlink FROM tblPages where active = 1 and deleted = 2 order by pageorder, pagename;" 'Response.Write dataSQL 'response.end menuRS.Open menuSQL, whtConn, 1 recordcount = MenuRS.recordcount if recordcount <> 0 then ' menuRS.close ' set menuRS = nothing ' end if '*****STICK DATA INTO AN ARRAY***** data = menuRS.GetRows() '*****Setup for array usage***** iRecFirst = LBound(data, 2) iRecLast = UBound(data, 2) end if '*****CLOSE RECORDSET***** menuRS.close set menuRS = nothing %>

<% 'CHECK IF LOGGED IN If Session("loginID") <> "" Then dim loginstatus loginstatus = "
admin
logout" end if response.write loginstatus %>

Back a Month
 Wednesday, April 25, 2012
Forward a Month
Day View
Week View
Month View
Year View
Goto Today
Login
Events for: Wednesday, April 25, 2012
There are no events on this date.
March 2012
 SMTWTFS
W    123
W45678910
W11121314151617
W18192021222324
W25262728293031

April 2012
 SMTWTFS
W1234567
W891011121314
W15161718192021
W22232425262728
W2930     

May 2012
 SMTWTFS
W  12345
W6789101112
W13141516171819
W20212223242526
W2728293031