<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
MM_dw_search_engine_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("search_engine.mdb")
%>
<%
Dim search__SearchTerm
search__SearchTerm = "-1"
If (Request.Form("SearchTerm") <> "") Then
search__SearchTerm = Request.Form("SearchTerm")
End If
%>
<%
Dim search__SearchType
search__SearchType = "Author"
If (Request.Form("SearchType") <> "") Then
search__SearchType = Request.Form("SearchType")
End If
%>
<%
Dim search
Dim search_numRows
Set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_dw_search_engine_STRING
search.Source = "SELECT * FROM Books WHERE " + Replace(search__SearchType, "'", "''") + " LIKE '%" + Replace(search__SearchTerm, "'", "''") + "%'"
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 1
search.Open()
search_numRows = 0
%>
<%
Dim books
Dim books_numRows
Set books = Server.CreateObject("ADODB.Recordset")
books.ActiveConnection = MM_dw_search_engine_STRING
books.Source = "SELECT * FROM Books"
books.CursorType = 0
books.CursorLocation = 2
books.LockType = 1
books.Open()
books_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
search_numRows = search_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 10
Repeat2__index = 0
books_numRows = books_numRows + Repeat2__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Search</title>
</head>
<body>
<form name="form1" id="form1" method="post" action="">
<p>Search Field
<select name="SearchType" id="SearchType">
<option value="Title">Title</option>
<option value="Author">Author</option>
<option value="Genre">Genre</option>
</select>
</p>
<p>Search Term
<input name="SearchTerm" type="text" id="SearchTerm" />
</p>
<p>
<input type="submit" name="Submit" value="Search" />
</p>
</form>
<hr />
<p> </p>
<% If Not search.EOF Or Not search.BOF Then %>
<table border="1" cellpadding="0" cellspacing="2">
<tr>
<td>id</td>
<td>Title</td>
<td>Author</td>
<td>Genre</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT search.EOF)) %>
<tr>
<td><%=(search.Fields.Item("id").Value)%></td>
<td><%=(search.Fields.Item("Title").Value)%></td>
<td><%=(search.Fields.Item("Author").Value)%></td>
<td><%=(search.Fields.Item("Genre").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
search.MoveNext()
Wend
%>
</table>
<% End If ' end Not search.EOF Or NOT search.BOF %>
<% If Request.Form("Submit") = "Search" And search.EOF And search.BOF Then %>
No records found!
<% End If ' end search.EOF And search.BOF %>
<p> </p>
<hr />
<p> </p>
<p>All books</p>
<table border="1" cellpadding="0" cellspacing="2">
<tr>
<td>id</td>
<td>Title</td>
<td>Author</td>
<td>Genre</td>
</tr>
<% While ((Repeat2__numRows <> 0) AND (NOT books.EOF)) %>
<tr>
<td><%=(books.Fields.Item("id").Value)%></td>
<td><%=(books.Fields.Item("Title").Value)%></td>
<td><%=(books.Fields.Item("Author").Value)%></td>
<td><%=(books.Fields.Item("Genre").Value)%></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
books.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
search.Close()
Set search = Nothing
%>
<%
books.Close()
Set books = Nothing
%>
ASP Free Forums Sponsor:
August 7th, 2006, 05:00 AM
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
