Print Page | Close Window

Quick Question about Search script

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=1091
Printed Date: 29 March 2026 at 8:18am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Quick Question about Search script
Posted By: tam42025
Subject: Quick Question about Search script
Date Posted: 17 March 2003 at 7:36pm

I am trying my best to understand this so please be patient with me.  lol  Like I said in another post, I am trying to create an advanced search page using ASP.  I know how to create the search template for my viewers to use but I don't know how to customize the asp code to call up my search queries.

I have five options under my search named:'

1. "brand"  2. "starting prices"  3.  "ending prices"  4.  "item"   5.  "keywords"

this is the script I customized to bring up those 5 options when a viewer searches my site:

<HTML><BODY>

<B>Search Results for <%=Request("brand")%><%=Request("starting price")%><%=Request("ending price")%><%=Request("item")%><%=Request("keywords")%></B><BR>

<%

Const fsoForReading = 1

Dim strSearchText

strSearchText = Request("brand")("starting price") ("ending price") ("item") ("keywords")

'Now, we want to search all of the files

Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

 

Dim objFolder

Set objFolder = objFSO.GetFolder(Server.MapPath("/"))

Dim objFile, objTextStream, strFileContents, bolFileFound

bolFileFound = False

For Each objFile in objFolder.Files

If Response.IsClientConnected then

Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

strFileContents = objTextStream.ReadAll

If InStr(1,strFileContents,strSearchText,1) then

Response.Write "<LI><A HREF=""/" & objFile.Name & _

""">" & objFile.Name & "</A><BR>"

bolFileFound = True

End If

objTextStream.Close

End If

Next

if Not bolFileFound then Response.Write "No matches found..."

Set objTextStream = Nothing

Set objFolder = Nothing

Set objFSO = Nothing

%>

</BODY></HTML>

As you can see at the top I thought I could just list the names of my search queries to bring them up but that didn't work.  Does anyone know how I would bring up those 5 queries in the code above. 

 

 

 

 




Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net