<%@Language="vbscript" codepage=65001 %> <% Response.Charset = "utf-8" %> American Corner Karmiel : Online Catalogs home Page

American Corner Karmiel: Online Catalogs

<% ' 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. %>
|>> English |Hebrew | Arabic | Russian | Disclaimer | ADVANCED SEARCH | | NEW BOOKS | SIMPLE BROWSE |