We blijven bezig...
Om toch een zoekmogelijkheid aan te bieden, al is het dan niet echt ideaal, ben ik even doorgegaan met de indexing service. ASP draait ondertussen, met een schitterend
testbestandje. Via http://[IPadres]/test.asp krijg ik de hele zwik draaiende.
Nu dan, deel twee van mijn kleine quest. Via
dezelfde manual als de vorige keer heb ik zowel een query-form gemaakt, als een results-pagina. Uiteraard werkt het query-form probleemloos, maar wil de results-pagina niet draaien.
Ik acht de kennis van de mensen hier beduidend hoger dan mijn eigen asp-kennis, dus kan er iemand zien wat er schort aan deze code?
RESULTS.ASP
<html>
<head>
<title>
Search Results
</title>
</head>
<body>
<%
' This section sets the various configuration variables
formscope="/"
pagesize = 5000
maxrecords=5000
searchstring=request.form("searchstring")
catalogtosearch="Test"
searchrankorder="rank[d]"
origsearch=searchstring
%>
<%
'This section performs the query
dim q
dim util
set q=server.createobject("ixsso.query")
set util=server.createobject("ixsso.util")
q.query=searchstring
q.catalog=catalogtosearch
q.sortby=searchrankorder
q.columns="doctitle, filename, size, write, rank, directory, path"
q.maxrecords=maxrecords
%>
<%
'This section displays the results
set rs=q.createrecordset("nonsequential")
rs.pagesize=pagesize
response.write"<p>Your search for <b>" & origsearch & "</b> produced "
if rs.recordcount=0 then response.write "no results"
if rs.recordcount=1 then response.write "1 result: "
if rs.recordcount>1 then response.write(rs.recordcount) & " results: "
%>
<table border=1><tr><td><b>Title</b></td><td><b>Filename</b></td><td><b>Date / Time</b></td><td><b>Size</b></td><td><b>Relevance</b></td><td><b>Directory</b></td></tr>
<%
do while not rs.EOF
response.write "<tr><td>" & rs("doctitle") & "</td><td>" & "<a href=" & "'" & rs("path") & "'" & ">" & rs("filename") & "</a>" & "</td><td>" & rs("write") & "</td><td>" & rs("size") & "</td><td>" & rs("rank") & "</td><td>" & rs("directory") & "</td></tr>"
rs.movenext
loop
response.write "</table>"
set rs=nothing
set q=nothing
set util=nothing
%>
</body>
</html>