<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__varkeyword Recordset1__varkeyword = "%" If (Request("keyword") <> "") Then Recordset1__varkeyword = Request("keyword") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ExamDatabase_STRING Recordset1.Source = "SELECT filecode, subject, type, date, pages FROM tbl_exam WHERE subject LIKE '%" + Replace(Recordset1__varkeyword, "'", "''") + "%' ORDER BY date DESC, subject ASC, type ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Exam Database


 

PeerNet Data

Exam Database

Library Catalogue

 

 

 
<% Recordset1.Close() Set Recordset1 = Nothing %>