<%@ Language=VBScript %> <% 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 SQL = "SELECT * from veterans where id = " & Request("Listing") & " and active like true" Dim objRS Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open SQL, connStr, adOpenStatic, adLockReadOnly, adCmdText %> <%= objrs("fname")%> <%= objrs("lname")%> - <%= objrs("branch")%> - <%= objrs("rank")%> - Pickens County Georgia Veterans Directory <%= objrs("lname")%> - <%= objrs("branch")%> - <%= objrs("rank")%> - Pickens County Georgia Veterans Directory - List Your Name, Branch of Service, War, and More- Army - Navy - Marines - Air Force - Army Air Force - Coast Guard - Merchant Marine - featuring names of veterans serving and who have served in the United States military in all branches of service with honorable charges.">
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
<%objRS.Close Set objRS = Nothing Set objPagingConn = Nothing%>