<title>iskeyword.asp</title>
<form action = "iskeywordrespond.asp" method= "Get" >
Choose the Word you Want to Search for::<p>
Search Word: <input name= "Keyword" size = "><br>"
<input type= "Submit" value= "Find the Documents!" >
</form>
</body>The iskeywordrespond.asp looks like this:
<title>iskeywordrespond.asp</title>
<body>
<%
Set objquery = Server.CreateObject ("Ixsso.query")
Set objutil = Server.CreateObject ("Ixsso.util")
My_keyword=request ("keyword")
Objquery.catalog= "Learnasp"
' Keyword search
Myquery=myquery & "$contents" & My_keyword
' Exclude Specific folders
%>
<!--#include virtual= "/search/exclude.asp"-->
<%
' Exclude specific filenames
Myquery=myquery & "and not #filename indexmaster.asp"
Myquery=myquery & "and not #filename index.asp"
Myquery=myquery & "and not #filename indexold.asp"
' Exclude specific extensions
Myquery=myquery & "and not #filename *.| (txt|,inc|,htm|,mdb|,cnt|,class|,toc|,html|,css|) "
Objquery.query=myquery
Objquery.columns = "Vpath, DocTitle, Filename, characterization, contents,dockeywords, Rank"
Objquery.sortby = "Rank [d]"
Objquery.maxrecords = 50
Objutil.addscopetoquery objquery, "/", "DEEP"
Linebr= "<br>" & vbCrLf
Set rstemp = Objquery.createrecordset ("nonsequential")
Do UNTIL rstemp.eof
For each key in Rstemp.fields
