%
' Constants ripped from adovbs.inc:
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
' Our own constants:
Const PAGE_SIZE = 10 ' The size of our pages.
' Declare our variables... always good practice!
Dim strURL ' The URL of this page so the form will work
' no matter what this file is named.
Dim cnnSearch ' ADO connection
Dim rstSearch ' ADO recordset
Dim RSConstType
Dim RSConstName
Dim RSDistName
Dim strDBPath ' path to our Access database (*.mdb) file
Dim strSQL ' The SQL Query we build on the fly
Dim strSearch ' The text being looked for
Dim strSearchfname ' The father's name being looked for
Dim StrTbl
Dim StrConstType
Dim iPageCurrent ' The page we're currently on
Dim iPageCount ' Number of pages of records
Dim iRecordCount ' Count of the records returned
Dim I ' Standard looping variable
' Retreive the URL of this page from Server Variables
strURL = Request.ServerVariables("URL")
' Retreive the term being searched for. I'm doing it on
' the QS since that allows people to bookmark results.
' You could just as easily have used the form collection.
strSearch = Request.QueryString("search")
strSearch = Replace(strSearch, "'", "''")
strSearchfname = Request.QueryString("searchfname")
strSearchfname = Replace(strSearchfname, "'", "''")
strSearchhno = Request.QueryString("searchhno")
strSearchhno = Replace(strSearchhno, "'", "''")
' Retrieve page to show or default to the first
'If Request.QueryString("page") = "" Then
' iPageCurrent = 1
'Else
' iPageCurrent = CInt(Request.QueryString("page"))
'End If
%>
CeoAndhra.Council.Press Release
CeoAndhra.Council.Hand Books
Design provided by G.A(Elections).Dept