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

AMERICAN CORNER AKKO (ACA)
ONLINE CATALOG
A MULTIMEDIA EXPERIENCE
<% ' 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 | ARABIC | HEBREW | RUSSIAN | BOOKS | NEW BOOKS | VIDEO LIBRARY | NEW DVDs/VIDEOS | SEARCH | BROWSE | YOUNG ADULTS |
BOOKS
VIDEO AND DVD LIBRARY
VIDEO on DEMAND (VoD)
PODCASTS
AUDIO BOOKS SAMPLES: YOUNG ADULT COLLECTION
YOUNG ADULT COLLECTION (Books)
****NEW*** MY ARABIC LIBRARY (SCHOLASTIC)
SEARCH
BROWSE
Magazines and Periodicals
| Disclaimer |