JavaScript.
I have 4 files that all need to be linked together.
The first file "Books.html" - needs to search for a Book title, author
or ISBN number from a Access database called "Books.mdb". When the
user clicks Submit from the "Books.html" file (after inputting info in
a text box and clicking the required box to define Title, Author or
ISBN), the information is then filtered through "Books.asp" file and
"CreateTable.asp" file.
<PLEASE SEE MY FILES and coding below this message, didn't know how to
attach files - files below: Books.asp; Books.inc; Books.html and
CreateTable.asp. Not shown is Books.mdb Access database file.
My problem is this: I cannot get the script in the Books.asp file to
only bring up certain information pertaining to that in my search box
from the "Books.html" file. What happens, is a) I get a error message
when I try and debug it or b) the full table comes up.
HELP !
I am using Abysse web server under http://localhost port8080.
Can anyone please help.. Any feedback most appreciated. My personal
e-mail is ks*****@shaw.ca for any step by step instructions you can
offer.
Thank you so much.
PS - yah, you guessed it, this is a URGENT request too. :)
Expand|Select|Wrap|Line Numbers
- "BOOKS.ASP file"
Expand|Select|Wrap|Line Numbers
- <HTML>
- <!--#INCLUDE FILE="Books.inc" -->
- <!--#INCLUDE FILE="ADOVBS.inc" -->
- <!--#INCLUDE FILE="CreateTable.asp" -->
- <HEAD>
- <TITLE>Accessing a Data Store using DSN (Data Source Name) with Active
- Server Pages </TITLE>
- </HEAD>
- <BODY>
- <%
- Dim objConn
- Dim objRec
- Dim CheckISBN
- Dim CheckTitle
- Dim CheckAuthor
- Dim SearchString
- Dim found
- objConn.Open strConnect
- objRec.Open "Titles",strConnect,adOpenStatic,adLockReadOnly,adCmdTable
- objRec.MoveFirst
- Response.Write CreateTable(objRec)
- found=0
- CheckISBN=Request.Form("chkISBN")
- CheckTitle=Request.Form("chkTitle")
- CheckAuthor=Request.Form("chkAuthor")
- SearchString=Request.Form("txtSearch")
- Set objConn=Server.CreateObject("ADODB.Connection")
- Set objRec=Server.CreateObject("ADODB.RecordSet")
- objConn.Open strConnect
- objRec.Open "Titles",strConnect,adOpenStatic,adLockReadOnly,adCmdtable
- objRec.MoveFirst
- If CheckISBN = "ByISBN" Then
- objRec.Find "ISBN= '"& Request.Form("txtSearch") & "'"
- If Not objRec.EOF Then
- found=1
- Response.Write objRec("ISBN")
- Response.Write " "
- Response.Write objRec("Price")
- Response.Write " "
- Response.Write objRec("Title") & "<BR>"
- End if
- End if
- If CheckTitle = "ByTitle" Then
- objRec.Find "Title= '"& Request.Form("txtSearch") & "'"
- If Not objRec.EOF Then
- found=1
- Response.Write objRec("ISBN")
- Response.Write " "
- Response.Write objRec("Price")
- Response.Write " "
- Response.Write objRec("Title") & "<BR>"
- End if
- End if
- If CheckAuthor = "ByAuthor" Then
- objRec.Filter = "Author= '"& Request.Form("txtSearch") & "'"
- While Not objRec.EOF
- If objRec("Author") = SearchString Then
- found=1
- Response.Write objRec("ISBN")
- Response.Write " "
- Response.Write objRec("Price")
- Response.Write " "
- Response.Write objRec("Title") & "<BR>"
- End if
- objRec.MoveNext
- Wend
- If found=0 Then
- Response.Write "Record Not Found"
- End if
- End if
- objRec.Close
- objConn.Close
- Set objRec=Nothing
- Set objConn=Nothing
- </BODY>
- </HTML>
Expand|Select|Wrap|Line Numbers
- BOOKS.INC file
Expand|Select|Wrap|Line Numbers
- <HTML>
- <HEAD>
- <TITLE>Location specific records in a database, with DSN and Active
- Server Pages </TITLE>
- </HEAD>
- <BODY>
- <%
- strConnect = "Driver={Microsoft Access Driver
- (*.mdb)};DBQ=c:\inetpub\wwwroot\K_Orman\Books.mdb;"
- %>
- </BODY>
- </HTML>
Expand|Select|Wrap|Line Numbers
- BOOKS.HTML file
<HEAD>
<TITLE> Location Specifc Records - Active Server Pages, Connecting to
DSN - PART 3</TITLE>
</HEAD>
<BODY>
<FORM NAME="frmsearch" ACTION="Books.asp" METHOD="Post">
<H3> Please enter the Title, the Author, or the ISBN number of the
book(s) you wish to search for: </H3>
<INPUT TYPE="text" NAME="txtSearch"><BR>
Search by: <BR>
<INPUT TYPE="checkbox" NAME="chkTitle" VALUE="ByTitle"> Title <BR>
<INPUT TYPE="checkbox" NAME="chkAuthor" VALUE="ByAuthor"> Author <BR>
<INPUT TYPE="checkbox" NAME="chkISBN" VALUE="ByISBN"> ISBN
<BR><BR><BR>
<INPUT TYPE="submit" NAME="cmdSearch" VALUE="Search"><BR>
<INPUT TYPE="Reset" NAME="cmdreset" VALUE="Reset">
</FORM>
</BODY>
</HTML>
[/code]
Expand|Select|Wrap|Line Numbers
- CREATETABLE.asp file
Expand|Select|Wrap|Line Numbers
- <HTML>
- <HEAD>
- <TITLE> Active Server Pages - Data Name Source </TITLE>
- </HEAD>
- <BODY>
- <%
- Function CreateTable(objRecordset)
- Dim fldField
- Dim strTable
- strTable = "<TABLE BORDER=2>" & "<TR ALIGN=CENTER>"
- For Each fldField in objRecordset.Fields
- strTable = strTable & "<TD>" & fldField.Name & "</TD>"
- Next
- strTable = strTable & "</TR>"
- While not objRecordset.EOF
- strTable = strTable & "<TR ALIGN=CENTER>"
- For Each fldField in objRecordset.Fields
- strTable= strTable & "<TD>" & fldField.Value & "</TD>"
- Next
- strTable= strTable & "</TR>"
- objRecordset.MoveNext
- Wend
- strTable = strTable & "</TABLE>"
- CreateTable = strTable
- End Function
- %>
- </BODY>
- </HTML>
