|
|
|
|
 |
<%
' search the Indexing Service catalog
'Make sure the user entered something
strQuery = Request("UserRestriction")
If strQuery > "" Then
Set objQuery = Server.CreateObject("ixsso.query")
Set objUtil = Server.CreateObject("ixsso.util")
' keyword search
myquery = myquery & "$CONTENTS " & strQuery
' Exclude specific folders%>
<%'%>
<%
' 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|)"
'myquery="$CONTENTS dsn"
objQuery.Query=myQuery
objQuery.Columns = "Vpath, DocTitle, Rank"
' objQuery.Columns = "Vpath, DocTitle, Filename, Characterization, Contents,DocKeyWords, Rank"
'objquery.Columns = "DocTitle, vpath, filename, size, write, characterization, rank"
objQuery.SortBy = "Rank [d]"
objQuery.MaxRecords = 50
objquery.catalog="TodaysHorse.com"
objUtil.AddScopeToQuery objQuery, "/", "deep"
objquery.LocaleID = objutil.ISOToLocaleID("EN-US")
linebr="
" & vbcrlf
Set rstemp = objQuery.CreateRecordSet("nonsequential")
If rstemp.BOF Then
Response.Write("BOF")
ElseIf rstemp.EOF Then
Response.Write("EOF")
End If%>
| Search Results for "<%=strQuery%>" |
<%
DO UNTIL rstemp.eof%>
- <%
if 0 = 0 then
%>"><%=rstemp("DocTitle")%>
Rank: <%=rstemp("Rank")%><%
end if
if 0 = 1 then
FOR EACH key in rstemp.fields
keyname=lcase(key.name)
SELECT CASE keyname
CASE "vpath"
response.write "" & key & "" & linebr
CASE ELSE
response.write "" & keyname & ":"
response.write key & linebr
END SELECT
NEXT
end if%>
<%
' response.write "
"
rstemp.movenext
LOOP
' clean up
rstemp.close
set rstemp=nothing
Set objQuery = nothing
Set objUtil = nothing
%>
|
<%
End If
%>
|
|
