<% Const adOpenForwardOnly = 0 Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adCmdTable = 2 Const adCmdText = 1 Const adUseClient = 3 Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim strSQL 'SQL command to execute Dim objPagingConn 'The ADODB connection object Dim listingprv 'The ADODB recordset object Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var Dim IRecordCount strOrderBy= Request.QueryString("strOrderBy") Select CASE strOrderBy Case "Date desc", "Order", "Category", "Type" Case Else strOrderBy = "Date Desc" End Select ' Get parameters iPageSize = 15 ' You could easily allow users to change this ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If strSQL = "SELECT image,eurl,iurl,headline,id,date,subheadline,info FROM press where active like true and veteran like true order by date desc,headline;" Dim objRSP Set objRSP = Server.CreateObject ("ADODB.Recordset") objRSP.Open strSQL, connStr, adOpenStatic, adLockReadOnly, adCmdText objRSp.PageSize = iPageSize ' You can change other settings as with any RS 'listingprv.CursorLocation = adUseClient objRSp.CacheSize = iPageSize ' Get the count of the pages using the given page size iPageCount = objRSp.PageCount iRecordCount = objRSp.RecordCount ' If the request page falls outside the acceptable range, ' give them the closest match (1 or max) If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 ' Check page count to prevent bombing when zero results are returned! If iRecordCount = 0 Then Response.Write "

No records found! Add New Listing

" Else ' Move to the selected page objRSp.AbsolutePage = iPageCurrent %> Pickens County Georgia Veterans News - Army - Navy - Marines - Air Force - Army Air Force - Coast Guard - Merchant Marine
Pickens County Georgia Veterans
Pickens County VeteransAir ForceArmyCoast GuardMarinesMerchant MarineNavyVeterans
Veteran DirectoryVeteran Listing in Pickens CountyPickens County Veteran News & EventsPickens County Veteran Event PhotosVeteran Information Branch MilitaryPickens veteran ga
Pickens County Veterans

News & Events
Links will open in new window Link opens in new window

<% iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objRSp.EOF If objRSp("image") = "" then Response.Write _ " " Else Response.Write _ " " Else If not objRSp("iurl") = "" then Response.Write _ "" Else Response.Write _ "more " End If End If Response.Write _ "" End If iRecordsShown = iRecordsShown + 1 objRSp.MoveNext Loop End If ' Show "previous" and "next" page links which pass the page to view ' and any parameters needed to rebuild the query. You could just as ' easily use a form but you'll need to change the lines that read ' the info back in at the top of the script. Response.Write "
LOCAL GROUPS                         

American Legion Post 149
meets every 2nd Saturday
of the month at 1000 hours
(breakfast at 900 hours)
at Pickens Senior Center
400 Stegall Drive
Jasper, GA


DAV Chapter 47
meets every 3rd Thursday at
1900 hours at Pickens County Library


North Georgia Mountain Marine Corps League, Detachment 1280
meets every 4th Saturday
of the month at 0830 hours
at Woodbridge Inn
47 Mountainside Village Parkway, Ste 107
Jasper, GA


North Georgia Veterans
meets the 2nd Wednesday of the month at noon in the Dogwood Room at the Lake Sconti Clubhouse in Big Canoe. Associated with Vets Helping Vets, an organiztion that builds wheelchair access ramps, makes apartments and houses wheelchair accessible for wounded vets, etc.



RESOURCES                         

The National Center for Veterans Analysis and Statistics (NCVAS) supports planning, analysis, and decision-making activities through the collection, validation, analysis, and dissemination of key statistics on Veteran population and VA programs.


Federal Benefits for Veterans, Dependents and Survivors


CareForTheTroops - Dedicated to the mental health care of our returning troops and their families.

  • " If not objrsp("eurl") = "" then Response.Write _ "" Else If not objRSp("iurl") = "" then Response.Write _ "" Else Response.Write _ "" End If End If Response.Write _ " " & objRSp("Headline") & " (" & objRSp("Date") & ")
    " & objRSp("Subheadline") & "
    " If not objrsp("eurl") = "" then Response.Write _ "" Else If not objRSp("iurl") = "" then Response.Write _ "" Else Response.Write _ "" End If End If Response.Write _ "more
  • " If not objrsp("eurl") = "" then Response.Write _ "" Else If not objRSp("iurl") = "" then Response.Write _ "" Else Response.Write _ "" End If End If Response.Write _ " " & objRSp("Headline") & " (" & objRSp("Date") & ")
    " & objRSp("Subheadline") & "
    " If not objrsp("eurl") = "" then Response.Write _ "
    • " If iPageCurrent > 1 Then %> <% End If ' You can also show page numbers: For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> <%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> <% End If %>

    Help keep us informed by emailing News & Events to webmaster@pickenscountyveterans.com.



    HOME | NEWS | PHOTOS | INFORMATION | PICKENS COUNTY VETERANS



    VA Loans by The Mortgage Source LLC - 404-545-1164

    Website courtesy of KnowPickens.com

    Please feel free to offer any suggestions, comments or corrections. Email webmaster@pickenscountyveterans.com