1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| set Q = Server.CreateObject("ixsso.Query")
set util = Server.CreateObject("ixsso.Util")
Dim SearchString, NextRecordNumber
NextRecordNumber = 0
SearchString = keystring
' Déclaration du nom du Catalogue qui est interrogé
Q.CATALOG="bd"
Q.Query = SearchString
' On classera les résultats en fonction du Ranking obtenu
Q.SortBy = "rank[d]"
Q.Columns = "DocTitle, DocAuthor, Vpath, FileName, " & _
" Size, Write, Characterization, rank, Directory,DocComments, Contents, Create, HitCount"
Q.MaxRecords = 200 |
Partager