|
|
|
<%
set Q = Server.CreateObject("ixsso.Query")
set util = Server.CreateObject("ixsso.util")
Q.Query = searched & "*"
Q.SortBy = "rank[d]"
Q.Columns = "DocTitle, FileName, DocKeywords, Characterization"
util.AddScopeToQuery Q, "E:\WWW\sites_client\Ultraflux\ANG\produits", "deep"
set RS = Q.CreateRecordSet("nonsequential")
nbRecords = Rs.RecordCount
select case nbRecords
case -1, 0:%>
We found 0 result.
Try differents keywords.
Back to the previous page
<% case else :
if nbRecords > 1 then
response.Write "We found " & nbRecords & " documents
"
else
response.Write "We found only one document.
"
end if %>
| Document Title |
|
File |
<% while not Rs.Eof
fileName = Rs("FileName")
if (Instr(fileName, ".asp") = 0) then
response.Write("")
response.Write ("| " & Rs("DocTitle") & " | ")
response.write(" | ")
response.Write ("" & fileName & " | ")
response.write (" ")
end if
Rs.Movenext
wend
RS.PageSize = 10 %>
<% end select
Rs.Close
%>
|
|
|
