search library system in asp

amoona · amoona

Hi…

I’m doing a search page form my work for their library. Since
this is the first time I work with ASP I’m facing some problems.

Each library item has different search data, I was able to build but
I’m stuck at when the user chooses books for e.g it refreshes
the page and the combo box goes to the first item.while I want it to
stay on books.
The second problem is that I need a code for displaying the specific
table chosen by the user from the first combo.

I’ve done it by an if statement but it didn’t work…
This is the code I have come up with:

<html>
<body bgcolor="#FFFFFF" text="#000000" >

<%

Dim strURL
Dim cnnSearch
Dim rstSearch
Dim strDBPath
Dim strSQL
Dim strSearch

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")
strSearch = Replace(strSearch, "'", "''")
y=request("mymenu")

%>

<b>
<form name="form1" method="get" action="test.asp">
<font color="#32B0AF" size="2">
Search in:
</font>
<select name="mymenu" onchange="document.form1.submit()">
<option value="0" selected>---Select---</option>
<option value="1">Book</option>
<option value="2">Magazine</option>
<option value="3">Legal Gazzete</option>
<option value="4">Science Paper</option>
<option value="5">Video</option>
<option value="6">Clipping</option>
</select>

<% if y>0 then %>
<font color="#32B0AF" size="2">
Search By:
</font>

<%Select Case y
Case "1"
%>
<select name="sub" >
<option value="0" selected>---Select---</option>
<option value="title">Title</option>
<option value="author">Author</option>
<option value="topic">Topic</option>
<option value="keyword">Keyword</option>
</select>

<% Case "2"%>
<select name="sub">
<option value="0" selected>---Select---</option>
<option value="name">Name</option>
<option value="title">Title</option>
</select>

<% Case "3"%>
<select name="sub">
<option value="0" selected>---Select---</option>
<option value="title">Title</option>
</select>

<% Case "4"%>
<select name="sub">
<option value="0" selected>---Select---</option>
<option value="title">Title</option>
<option value="author">Author</option>
</select>

<% Case "5" %>
<select name="sub">
<option value="0" selected>---Select---</option>
<option value="title">Title Keyword</option>
</select>

<% Case "6" %>
<select name="sub">
<option value="0" selected>---Select---</option>
<option value="title">Title Keyword</option>
</select>
<%Case Else

End Select%>

<input type="text" name="search">
<input type="submit" value="Search">

<% end if %>

</p>

<%
If strSearch <> "" Then

strDBPath = Server.MapPath("User Library system.bak")

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\User Library
system.bak;" & _
"Jet OLEDB:System
Database=C:\Inetpub\wwwroot\Secured.mdw;", _
"staff", "envr"

'if(y=1) then
strSQL = "SELECT bookid, title, topic " _
& "FROM books " _
& "WHERE title LIKE '%" & Replace(strSearch, "'", "''") & "%' order
by bookid ;"
'else if (y=2) then
'strSQL = "SELECT magazineid,name,title " _
'& "FROM Magazine " _
'& "WHERE name LIKE '%" & Replace(strSearch, "'", "''") & "%'
order by magazineid ;"
'end if

Set rstSearch = cnnSearch.Execute(strSQL)
%>

<table border="1">
<TR><TH>Book Id</th> <th>Title</th> <th>Topic</th></tr>
<%
Do While Not rstSearch.EOF
%>
<tr>
<td><%= rstSearch.Fields("bookid").Value %> </td>
<td><%= rstSearch.Fields("title").Value %> </td>
<td><%= rstSearch.Fields("topic").Value %> </td>
</tr>
<%
rstSearch.MoveNext
Loop
%>
</table>
<%
rstSearch.Close
Set rstSearch = Nothing
cnnSearch.Close
Set cnnSearch = Nothing
End If
%>
</body>
</html>

Thanxxxxx for ur help

William Tasso · William Tasso

amoona wrote:

> ...
> Each library item has different search data, I was able to build but
> I’m stuck at when the user chooses books for e.g it refreshes
> the page and the combo box goes to the first item.while I want it to
> stay on books.

Your script needs to capture the selected option and insert
selected="selected" when rewriting the page.

> The second problem is that I need a code for displaying the specific
> table chosen by the user from the first combo.
>
> I’ve done it by an if statement but it didn’t work…
> ...

What did it do instead of what you wanted?
Was there an error message?
Is there a URL?

--
William Tasso - [url]http://WilliamTasso.com[/url]

amoona m · amoona m

hi

william thanxx 4 replying..

you told i have to capture the selected option.. how do i do that?? (ur
talking to someone who knows nothing in asp)

the second problem without the if statement it will always go to the
book table.if i put the if statement it doen't go in it bcoz it always
takes the value of y as 0.

so its says that there is an error at this line:
Set rstSearch = cnnSearch.Execute(strSQL)
bcoz there is no object.

hope u can help me in this

thanxx alot

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

search library system in asp

Thread Tools

Display

search library system in asp

Similar Questions and Discussions

In search of working IM library

Error making a search system

OT: card catalog system for public library?

~/Library/ vs ~/System/Library vs /User/Library/

[XFree86] system can't find library ( strange library behaviour )

Re: search library system in asp

Re: search library system in asp

Posting Permissions