sklomstad
asked on
How do I get my Dreamweaver 8 ASP search/results page to search more than once?
I have created a search/results web page for my company intranet. Everything is working fine except that you can only search the database one time. When you try to search again, "this page cannot be displayed" is returned. My code is below. Any help is greatly appreciated.
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/TechRes.asp" -->
<%
var rsTechRes__MMColParam = "1";
if (String(Request.QueryString("textfield")) != "undefined" &&
String(Request.QueryString("textfield")) != "") {
rsTechRes__MMColParam = String(Request.QueryString("textfield"));
}
%>
<%
var rsTechRes = Server.CreateObject("ADODB.Recordset");
rsTechRes.ActiveConnection = MM_TechRes_STRING;
rsTechRes.Source = "SELECT ScannedDocument, ChaptersWithinBook, BookORMag, link, Images FROM Books WHERE ChaptersWithinBook LIKE '%"+ rsTechRes__MMColParam.replace(/'/g, "''") + "%' ORDER BY ScannedDocument ASC";
rsTechRes.CursorType = 1;
rsTechRes.CursorLocation = 1;
rsTechRes.LockType = 1;
rsTechRes.Open();
var rsTechRes_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
rsTechRes_numRows += Repeat1__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>Technical Research Results</title>
<style type="text/css">
<!--
.style1 {
font-family: "Arial Narrow";
font-size: 36px;
color: #990000;
}
.style59 {color: #990000}
.style60 {
font-family: "Arial Narrow";
font-size: 14px;
}
-->
</style>
</head>
<body>
<p align="center"><img src="Photos/TechResourceSearch.jpg" width="290" height="190" align="middle" /><span class="style1"> Technical Research Database </span></p>
<table width="820" border="0" align="center" cellpadding="1">
<tr>
<td width="201"><div align="left"><a href="http://norton/eng/engineering/enghome.html"><img src="Bullets/EngHomePage.jpg" width="200" height="24" border="0" /></a></div></td>
<td width="200"><div align="center"><a href="http://norton/"><img src="Bullets/Intranet-home.jpg" width="200" height="24" border="0" /></a></div></td>
<td width="200"><div align="center"><a href="http://www.isateceng.com"><img src="Bullets/Isatec-website.jpg" width="200" height="24" border="0" /></a></div></td>
<td width="201"><div align="left"><a href="http://www.ccioh.com"><img src="Bullets/CCI-website.jpg" width="200" height="24" border="0" /></a></div></td>
</tr>
</table>
<p align="center" class="style60"> </p>
<form id="form1" name="form1" method="get" action="EngResResults.asp">
<p align="center">New Keyword
<input type="text" name="textfield" />
<input type="submit" name="Submit" value="Search" />
</p>
</form>
<p align="center"> </p>
<table width="630" border="1" align="center" cellpadding="1">
<tr>
<td width="620"><p align="center" class="style60">To view all documents in this database you can go to P:\eng\ScannedBooks or <a href="ScannedBooks\ListOfDocuments.xls" target="_blank" class="style59">click here</a> for a list of all documents.</p>
<p align="center" class="style60">If you would like to add research material to this database, or if you are having problems, please contact Stephanie Klomstad. </p></td>
</tr>
</table>
<p> </p>
<p align="center">
<% if (rsTechRes.EOF && rsTechRes.BOF) { %>
<strong>No Matches Found</strong>
<% } // end rsTechRes.EOF && rsTechRes.BOF %>
</p>
<div align="left">
<% while ((Repeat1__numRows-- != 0) && (!rsTechRes.EOF)) { %>
<table width="908" border="0" align="center" cellpadding="1">
<tr>
<th width="105" rowspan="5" align="left" valign="top" bordercolor="#000000" scope="col"><a href="<%=(rsTechRes.Fields.Item("link").Value)%>" target="_blank"><img src="<%=(rsTechRes.Fields.Item("Images").Value)%>" alt="" width="100" border="0" /></a></th>
<th width="793" scope="col"><div align="left"><%=(rsTechRes.Fields.Item("ScannedDocument").Value)%></div></th>
</tr>
<tr>
<td><div align="left"><%=(rsTechRes.Fields.Item("ChaptersWithinBook").Value)%></div></td>
</tr>
<tr>
<td><div align="left"><%=(rsTechRes.Fields.Item("BookORMag").Value)%></div></td>
</tr>
<tr>
<td><div align="left"><a href="<%=(rsTechRes.Fields.Item("link").Value)%>" target="_blank">Link</a></div></td>
</tr>
<tr>
<td><div align="left"></div></td>
</tr>
</table>
<%
Repeat1__index++;
rsTechRes.MoveNext();
}
%>
</div>
<p align="center"> </p>
</body>
</html>
<%
rsTechRes.Close();
%>
can you post the contents of
EngResResults.asp
and
Connections/TechRes.asp
EngResResults.asp
and
Connections/TechRes.asp
ASKER
The previous is the EngResResults.asp page. Here is the Connections/TechRes.asp:
<%
// FileName="Connection_odbc_conn_dsn.htm"
// Type="ADO"
// DesigntimeType="ADO"
// HTTP="false"
// Catalog=""
// Schema=""
var MM_TechRes_STRING = "dsn=TechRes;"
%>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
EngResResults.asp
and
Connections/TechRes.asp