T
TrvlOrm
I am having great difficulty in these asp scripts, using VBscript and
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 (e-mail address removed) for any step by step instructions you can
offer.
Thank you so much.
PS - yah, you guessed it, this is a URGENT request too.
<HTML>
<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]
[/quote][/code] THANK YOU SO MUCH.....
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 (e-mail address removed) for any step by step instructions you can
offer.
Thank you so much.
PS - yah, you guessed it, this is a URGENT request too.
Code:
"BOOKS.ASP file"
Code:
<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>
Code:
BOOKS.INC file
Code:
<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>
Code:
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]
Code:
CREATETABLE.asp file
Code:
<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>[/quote][/code] THANK YOU SO MUCH.....