how to do search function using ASP

Guest_imported · Sep 13, 2000

this is what i have did...the problem is...it is succesful
if i m using personal web server but if i am using
internet server manager i cant

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
<HTML>
<HEAD>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

</SCRIPT>

<TITLE>Index Server Search Form</TITLE>

<META NAME="DESCRIPTION" CONTENT=" ASP query form for
Microsoft Index Server">
<META NAME="KEYWORDS" CONTENT="query, content, hit, asp">
<META NAME="MS.LOCALE" CONTENT="EN-US">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;
charset=Windows-1252">

<%
NewQuery = FALSE
UseSavedQuery = FALSE
QueryForm = Request.ServerVariables( "PATH_INFO" )
SearchString = ""
if Request.ServerVariables("REQUEST_METHOD&quot

= "POST" then
SearchString = Request.Form("SearchString&quot

pg = Request.Form("pg&quot

if pg <> "" then
NextPageNumber = pg
NewQuery = FALSE
UseSavedQuery = TRUE
else
NewQuery = SearchString <> ""
end if
end if

%>
</HEAD>
<p>

<TABLE width="657">
<TR bgcolor="#336699" bordercolor="#333333">
<TD ALIGN=LEFT width="649" height="31"><font face="Arial, Helvetica, sans-serif" size="-1"><b><font color="#FFFFFF">Search
for: </font></b></font></TD>
</TR>
<TR bgcolor="#336699" bordercolor="#333333">
<TD width="649" height="8">
<FORM ACTION='<%= QueryForm%>' METHOD=POST>
<TABLE width="664">
<TR>
<TD width="310">
<INPUT TYPE="TEXT" NAME="SearchString" SIZE="50"
MAXLENGTH="100" VALUE='<%=SearchString%>'>
</TD>
<TD width="170"> <select name="listdown" size="1">
<option value="1">Entire Site</option>
<option value="2">Home</option>
<option value="3">Announcement</option>
<option value="4">Bussiness</option>
<option value="5">Realtime</option>
<option value="6">Talk</option>
<option value="7">News</option>
<option value="8">Join</option>
<option value="9">Members</option>
<option value="10">Help</option>
</select>

</TD>
<TD width="168">
<%
if SearchString <> "" then
if NewQuery then
set Session("Query&quot

= nothing
set Session("Recordset&quot

= nothing
NextRecordNumber = 1

Dim Q

set Q = Server.CreateObject("ixsso.Query&quot

set util = Server.CreateObject("ixsso.util&quot

Q.SetQueryFromURL(Request.QueryString)
Q.Query = SearchString
Q.SortBy = "rank[d]"
Q.Columns = "DocTitle, vpath, path, filename, size, write, characterization"

if request("listdown&quot

= "1" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0"

elseif request("listdown&quot

= "2" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\home\index.asp"

elseif request("listdown&quot

= "3" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\annc\index.asp"

elseif request("listdown&quot

= "4" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\bis\index.asp"

elseif request("listdown&quot

= "5" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\realtime\index.asp"

elseif request("listdown&quot

= "6" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\talk\index.asp"

elseif request("listdown&quot

= "7" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\news\index.asp"

elseif request("listdown&quot

= "8" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\join\index.asp"

elseif request("listdown&quot

= "9" then
util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\members\index.asp"

else set Q = Server.CreateObject("ixsso.Query&quot

util.AddScopeToQuery Q,"D:\inetpub\

http://wwwroot\products\finance\working\3.0\help\index.asp"

end if

set RS = Q.CreateRecordSet("nonsequential&quot

RS.PageSize = 10
ActiveQuery = TRUE

elseif UseSavedQuery then
if IsObject( Session("Query&quot

) And IsObject( Session("RecordSet&quot

) then
set Q = Session("Query&quot

set RS = Session("RecordSet&quot

if RS.RecordCount <> -1 and NextPageNumber <> -1 then
RS.AbsolutePage = NextPageNumber
NextRecordNumber = RS.AbsolutePosition
end if

ActiveQuery = TRUE
else
Response.Write "ERROR - No saved query"
end if
end if
%>
<input type="SUBMIT" name="Submit" value="Search">
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>

<%
if ActiveQuery then
if not RS.EOF then
%>
<p>
<p>

<%
LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
CurrentPage = RS.AbsolutePage
if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
LastRecordOnPage = RS.RecordCount
end if

Response.Write "Documents " & NextRecordNumber & " to " & LastRecordOnPage
if RS.RecordCount <> -1 then
Response.Write " of " & RS.RecordCount
end if
Response.Write " matching the query " & chr(34) & "<I>"
Response.Write SearchString & "</I>" & chr(34) & "<P>"
%>
<dl>


<% Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage %>

<%
' This is the detail portion for Title, Abstract, URL, Size, and
' Modification Date.
' If there is a title, display it, otherwise display the virtual path.
%>
<p>
<dt><%= NextRecordNumber%>
<%if VarType(RS("DocTitle&quot

) = 1 or RS("DocTitle&quot

= "" then%>
<b><a href="<%=RS("vpath&quot

%>"><%= Server.HTMLEncode( RS("filename&quot

)%></a></b>
<%else%>
<b><a href="<%=RS("vpath&quot

%>"><%= Server.HTMLEncode(RS("DocTitle&quot

)%></a></b>
<%end if%>
<dd>
<%if VarType(RS("characterization&quot

) = 8 and RS("characterization&quot

<> "" then%>
<b><i>Abstract: </I></b><%= Server.HTMLEncode(RS("characterization&quot

)%>
<br>
<%end if%>
<cite>
<a href="<%=RS("vpath&quot

%>">

http://<%=Request("server_name")%><%=RS("vpath")%></a>

<font size=-1> - <%if RS("size&quot

= "" then%>(size and time unknown)<%else%>size <%=RS("size&quot

%> bytes - <%=RS("write&quot

%> GMT<%end if%></font>
</cite>

<%
RS.MoveNext
NextRecordNumber = NextRecordNumber+1
Loop
%>

</dl>

<P><BR>

<%
else ' NOT RS.EOF
if NextRecordNumber = 1 then
Response.Write "No documents matched the query<P>"
else
Response.Write "No more documents in the query<P>"
end if

end if ' NOT RS.EOF
%>



<%if Q.QueryIncomplete then%>
<P>
<I><B>The query is too expensive to complete.</B></I><BR>
<%end if%>



<%if Q.QueryTimedOut then%>
<P>
<I><B>The query took too long to complete.</B></I><BR>
<%end if%>

<TABLE>



<%SaveQuery = FALSE%>
<%if CurrentPage > 1 and RS.RecordCount <> -1 then %>
<td align=left>
<form action="<%= QueryForm%>" method="POST">
<INPUT TYPE="HIDDEN" NAME="SearchString" VALUE="<%=SearchString%>">
<INPUT TYPE="HIDDEN" name="pg" VALUE="<%=CurrentPage-1%>" >
<input type="submit" value="Previous <%=RS.PageSize%> documents">
</form>

</td>
<%SaveQuery = TRUE%>
<%end if%>



<%if Not RS.EOF then%>
<td align=right>
<form action="<%= QueryForm%>" method="POST">
<INPUT TYPE="HIDDEN" NAME="SearchString" VALUE="<%=SearchString%>">
<INPUT TYPE="HIDDEN" name="pg" VALUE="<%=CurrentPage+1%>" >

<% NextString = "Next "
if RS.RecordCount <> -1 then
NextSet = (RS.RecordCount - NextRecordNumber) + 1
if NextSet > RS.PageSize then
NextSet = RS.PageSize
end if
NextString = NextString & NextSet & " documents"
else
NextString = NextString & " page of documents"
end if
%>
<input type="submit" value="<%=NextString%>">
</form>
</td>
<%SaveQuery = TRUE%>
<%end if%>

</TABLE>



Page <%=CurrentPage%>
<%if RS.PageCount <> -1 then
Response.Write " of " & RS.PageCount
end if %>

<%
' If either of the previous or back buttons were displayed, save the query
' and the recordset in session variables.
if SaveQuery then
set Session("Query&quot

= Q
set Session("RecordSet&quot

= RS
else
RS.close
Set RS = Nothing
Set Q = Nothing
set Session("Query&quot

= Nothing
set Session("RecordSet&quot

= Nothing
end if
%>

<% end if
elseif not NewQuery then
Response.Write ""
else
Response.Write "Please enter a word or phrase to search for."
end if

%>

Guest_imported · Sep 14, 2000

What error message are u getting ?
Or is it just returning nothing ?

run the inetpub/iissamples/issamples/query.asp
to test index server on your NT server

Maybe you need to grant permissions to the
anonymous user ? iusr_computername to the
inetpub/

http://wwwroot

folder

Regards, Paul

Ayac · Nov 10, 2000

When I deleted the "util.AddScopeToQuery" lines and wrote
Q.Catalog = "Catalogname" (I picked out a name of a Catalog of mines) it had results. So your coding seems to be okay, only the determination of the location of
Catalogs should be tuned...

By the way. I have a problem too, I am also trying to make the Index Server work for me, and I can not get the values stored in the "vpath" variable. Do you have any tips for that?

Ayac

palreddy · Jan 19, 2001

Hi,

I just created a simple search page used for finding records.It can search by Last Nmae,
First Name, Year of graduation or one of three other text fields.This is the part of the
code that handles the text search, which was generated by DreamWeaver UltraDev:

<%@LANGUAGE="VBSCRIPT"%> <%

Dim RsPublicResult__FirstName
RsPublicResult__FirstName = "%"
if(Request.Form("FirstName&quot

<> "&quot

then RsPublicResult__FirstName = Request.Form("FirstName&quot

Dim RsPublicResult__LastName
RsPublicResult__LastName = "%"
if(Request.Form("LastName&quot

<> "&quot

then RsPublicResult__LastName = Request.Form("LastName&quot

%> <%
set RsPublicResult = Server.CreateObject("ADODB.Recordset&quot

RsPublicResult.ActiveConnection = "dsn=alumni;"
RsPublicResult.Source = "SELECT * FROM alumni WHERE Fname like '" + Replace(RsPublicResult__FirstName, "'", "''&quot

+ "%' AND Lname like '" + Replace(RsPublicResult__LastName, "'", "''&quot

+ "%'"
if RsPublicResult.Source= "" then Response.Write "No Records Found"
RsPublicResult.CursorType = 0
RsPublicResult.CursorLocation = 2
RsPublicResult.LockType = 3
RsPublicResult.Open
RsPublicResult_numRows = 0
%><%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
RsPublicResult_numRows = RsPublicResult_numRows + Repeat1__numRows

%>

While ((Repeat1__numRows <> 0) AND (NOT RsPublicResult.EOF))
%>
<tr>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=(RsPublicResult.Fields.Item("Fname&quot

.Value)%></font></div>
</td>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=(RsPublicResult.Fields.Item("Lname&quot

.Value)%></font></div>
</td>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=(RsPublicResult.Fields.Item("GradYear&quot

.Value)%></font></div>
</td>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=(RsPublicResult.Fields.Item("Email&quot

.Value)%></font></div>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RsPublicResult.MoveNext()
Wend
%>
Without changing the syntax much, does anyone know how this can be made to give a user
friendly message..whenever an invalid name is queried i should be able to give my user
..user friendly message like "No records are found "..instead of a blank screen......

looking forward for your cooperation.

sincerely,

palreddy

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

how to do search function using ASP

Guest_imported

New member

Guest_imported

New member

Ayac

Programmer

palreddy

Programmer

Similar threads

Part and Inventory Search

Sponsor