<% DIM iMonth iMonth = Month(now) 'Dim menuRS 'Dim settingsRS 'Dim settingsSQL 'Dim whtconn %> <% 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 Police Department Calendar <% '*****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 %>
<% if recordcount > 0 then ' Loop through the records (second dimension of the array) For I = iRecFirst To iRecLast 'set array values to variable that is easy to read. 'put loop content here pagename = data(0,I) pID = data(1,I) directlink = data(2,I) if directlink <> "" then response.write ("") else response.write ("") end if Next ' I end if %>
" & pagename & "
" & pagename & "
Photo Gallery
Vehicle Release
Links
FBI-NIBRS Crime Data
Apartment / Condo Calls by Month
Fingerprinting Services
Community Watch
Sex Offenders
Hoover's Most Wanted
Medic Alert System
Online Forms
Contact Information


Site Search

Back a Month
 May 2013
Forward a Month
Day View
Week View
Month View
Year View
Goto Today
Login
SundayMondayTuesdayWednesdayThursdayFridaySaturday
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  

 
© Copyright Hoover Police Department