<%@ LANGUAGE = "VBScript" %> <% Option Explicit %> <% Dim DBConnection, rstResults, sqlQry, rsDepartments, ReqName, StartDate, sMailAddr,_ strDate, rstDeptLinks, strLinkMenu, sEmployeeEmail, sPhone, sEmployeeName, sTitle Dim strURL, strPageName, strFQPageName, intBrkPoint, strLinkName DIM intPageRecords, intRecords, intRecordCount, intCurrentPage, intNumberOfPages, intDisplayPage, strKey Dim sSelMonth, sSelYear, sFirstDate, sLastDate, dFirstYear, dLastYear, iYearNum Const sDeptID=4 Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adUseClient = 3 Const adCmdText = 1 Const QUOT = """" strDate = date() strDate=cDate(strDate) sSelMonth = Request.Querystring("sMonth") sSelYear = Request.Querystring("sYear") If sSelYear = "" Then sSelYear=right(strDate,4) Set DBConnection=Server.CreateObject("ADODB.Connection") DBConnection.Open "COH" sqlQry = "Select Department_Name, Department_URL From [Departments] Where Department_ID = " & sDeptID Set rsDepartments = DBConnection.Execute(sqlQry) if not rsDepartments.EOF then ReqName = rsDepartments("Department_Name") strURL="/" & rsDepartments("Department_URL") & "/" end if Set rstResults=Server.CreateObject ("ADODB.Recordset") rstResults.CursorLocation = adUseClient sqlQry="SELECT [Press Releases].*, Format([Effective_Date],'yyyy') AS Cur_Year, Format([Effective_Date],'mm') AS Cur_Month" sqlQry=sqlQry & " FROM [Press Releases]" sqlQry=sqlQry & " WHERE ((([Press Releases].Active_Use)=Yes))" sqlQry=sqlQry & " ORDER BY [Effective_Date];" rstResults.Open sqlQry, DBConnection %> City of Henderson <%=ReqName%> Department

 

Henderson Police Department Press Releases
<% If NOT rstResults.EOF Then dFirstYear=rstResults("Cur_Year") rstResults.MoveLast dLastYear=rstResults("Cur_Year") For iYearNum = cint(dLastYear) to cint(dFirstYear) STEP -1 If cint(sSelYear) = cint(iYearNum) Then %> <%=iYearNum%>  <% End If %>Click the "Description" of the Press Release to view the documents. All Press Releases are in PDF format and require Adobe Reader to view.
<% Set rstResults=Server.CreateObject ("ADODB.Recordset") rstResults.CursorLocation = adUseClient sqlQry="SELECT [Press Releases].*, Format([Effective_Date],'mm/dd/yyyy') AS Format_Date, Format([Effective_Date],'mm') AS Cur_Month" sqlQry=sqlQry & " FROM [Press Releases]" sqlQry=sqlQry & " WHERE (((Format([Effective_Date],'yyyy'))=" & sSelYear & ") AND (([Press Releases].Active_Use)=Yes))" sqlQry=sqlQry & " Order By Effective_Date DESC;" rstResults.Open sqlQry, DBConnection intPageRecords = Request.Querystring("page") IF intPageRecords = "" THEN intPageRecords = 1 intRecords = 1 End If intRecords = intPageRecords intPageRecords = ((intPageRecords -1 ) * 20) + 1 intRecordCount = 0 If NOT rstResults.EOF Then rstResults.Move (intPageRecords - 1) End If DO WHILE intRecordCount < 20 and NOT rstResults.EOF If IsNull(rstResults("File_Link")) Then strLinkName=rstResults("Description") Else strLinkName="" & rstResults("Description") & "" End If %> <% rstResults.MoveNext intRecordCount = intRecordCount + 1 Loop %>  
Date Description
<%=rstResults("Format_Date")%> 11-17-2008 Crime Alert: Items being thrown off I-85 Bridges
12-01-2008 Arrest: B&E Skeet's Restaurant 1048 South William Street
12-01-2008 Shooting and Arrest: The Spot 231 Satterwhite Point Road
12-01-2008 Attempted Robbery and Shooting: Dollar Tree 304 N. Cooper Drive
12-01-2008 Aggravated Assault and Arrest: 200 Burwell Avenue
12-01-2008 Arrest: B&E S&R Cycles 1365 N. Garnett Street
12-29-2008 Counterfeit Arrests 12-28-2008
12-29-2008 Meth Lab Arrest America's Best Value Inn 12-26-2008

 
Department Home, Welcome, Contacts, Links, Jobs, FAQ, Reports, Press Releases
<% DBConnection.Close %>