<%@Language="vbscript" codepage=65001 %>
<% Response.Charset = "utf-8" %>
UNION CATALOG ONLINE: AMERICAN CORNERS: ACCO, BEERSHEVA, KARMIEL AND YAFFO
UNION CATALOG: ONLINE CATALOG
AMERICAN CORNERS: AKKO, BEERSHEVA, KARMIEL AND YAFFO.
<%
' Constants taken from adovbs.inc:
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText= &H0001
' 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 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 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
dim rsCat
Dim sql
Dim strSelectPageSize
Dim strSelectType
Dim strSelectLanguage
Dim N, R
' Retreive the URL of this page from Server Variables
strURL = Request.ServerVariables("URL")
strSelectPageSize=Request("SelectPageSize")
' Retreive the term being searched for.
strSearch = Trim(Request.QueryString("search"))
strSelectField=Request("SelectField")
strSelectType=Request.QueryString("SelectType")
strSelectLanguage=Request.QueryString("SelectLanguage")
' Retrieve page to show or default to the first
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
' Since this is all in one page we need to see if anyone
' has searched for something.
%>