<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If request("txtMediaSearch")<> "" then strSQL="select * from wcbol.tbl_article where title like '%"& request("txtMediaSearch") &"%' or subtitle like '%"& request("txtMediaSearch") &"%' or content like '%"& request("txtMediaSearch") &"%' order by dateposted desc" Elseif request("selCategory")="" then If Session("mainid")="" then Session("mainid")=request("mainid") End If strSQL="SELECT distinct wcbol.tbl_Article.id, wcbol.tbl_Article.title, wcbol.tbl_Article.dateposted FROM wcbol.tbl_Article LEFT OUTER JOIN wcbol.tbl_ArticleCat ON wcbol.tbl_Article.ID = wcbol.tbl_ArticleCat.Article_ID RIGHT OUTER JOIN wcbol.tbl_Category ON wcbol.tbl_ArticleCat.Category_ID = wcbol.tbl_Category.ID where Maincategory="& Session("mainid") &" order by dateposted desc" Else If Session("category")="" then Session("category")=request("selcategory") End If strSQL="SELECT distinct wcbol.tbl_Article.id, wcbol.tbl_Article.title, wcbol.tbl_Article.dateposted FROM wcbol.tbl_Article LEFT OUTER JOIN wcbol.tbl_ArticleCat ON wcbol.tbl_Article.ID = wcbol.tbl_ArticleCat.Article_ID RIGHT OUTER JOIN wcbol.tbl_Category ON wcbol.tbl_ArticleCat.Category_ID = wcbol.tbl_Category.ID where wcbol.tbl_ArticleCat.category_ID="& Session("category") &" order by dateposted desc" End if response.Write(strSQL) Set rsArticle = Server.CreateObject("ADODB.Recordset") rsArticle.ActiveConnection = dsnWCBOL rsArticle.Source =strSQL rsArticle.Pagesize=10 rsArticle.Cachesize=10 rsArticle.CursorType = 0 rsArticle.CursorLocation = 3 rsArticle.LockType = 1 rsArticle.Open() Set rscategory = Server.CreateObject("ADODB.Recordset") rscategory.ActiveConnection = dsnWCBOL rscategory.Source ="select * from wcbol.tbl_category where maincategory="& request("mainid") &" order by category" rscategory.CursorType = 0 rscategory.CursorLocation = 2 rscategory.LockType = 1 rscategory.Open() If not rsArticle.bof and not rsArticle.eof then If Len(Request("pagenum")) = 0 Then rsArticle.AbsolutePage = 1 Else If CInt(Request("pagenum")) <= rsArticle.PageCount Then rsArticle.AbsolutePage = Request("pagenum") Else rsArticle.AbsolutePage = 1 End If End If Dim abspage, pagecnt abspage = rsArticle.AbsolutePage pagecnt = rsArticle.PageCount End if %> Westchester County Board of Legislators, NY: Media Center

Welcome to the Media Center

Search by:

District | Legislator | Committee | Topic

Or perform a free text search:

<% If rsArticle.eof and rsArticle.bof then %>

There are currently no articles to display.

<%Else %> <% For Each fldF in rsArticle.Fields %> <% Next %> <% For intRec=1 To rsArticle.PageSize If not rsArticle.eof then Response.Write "" 'For Each fldF in rsArticle.Fields %> <% 'Next Response.Write "" rsArticle.MoveNext end if Next %>

Date Posted	Headline
<% =rsArticle("dateposted") %>	"> <% =rsArticle("title") %>

<% ' Now showing first, next, back, last buttons Response.Write "

" & vbcrlf Response.Write "First Page" Response.Write " | " If abspage = 1 Then Response.Write "Previous Page" Else Response.Write "Previous Page" End If Response.Write " | " If abspage < pagecnt Then Response.Write "Next Page" Else Response.Write "Next Page" End If Response.Write " | " Response.Write "Last Page" Response.Write "

" & vbcrlf rsArticle.Close Set rsArticle = Nothing End if %>

Text: Print:

Use the clickable map* below to help identify
your district or click here to
enter your address

*Each # on the map represents 1 of the county's 17 legislative districts:

Hovering over a # on the map will enable you to see which communities each district covers.

Clicking a district # will link you to the homepage for that district's legislator.