Dim oQuery,oRS
Const CATAL = "Web"
busca = criterio
' instanciamos el objeto y establecemos propiedades
Set oQuery = Server.CreateObject("IXSSO.Query")
oQuery.DefineColumn "description (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 description"
oQuery.DefineColumn "Characterization = 560c36c0-503a-11cf-baa1-00004c752a9a Characterization"
oQuery.Catalog = CATAL
oQuery.Query = criterio & " AND NOT #filename *.txt AND NOT #filename *.reg AND NOT #filename *.xls AND NOT #filename *.css AND NOT #filename *.inc AND NOT #filename *.class AND NOT #filename *.asa AND NOT #filename *.htx AND NOT #filename *.ppt AND NOT #filename *.doc AND NOT #filename *.png AND NOT #path *\iishelp* AND NOT #path *\_sharepoint* AND NOT #path *\buscador* AND NOT #path *\aplicaciones* AND NOT #path *\admon* AND NOT #path *\_vti_*"
oQuery.SortBy = "rank[d]"
'oQuery.MaxRecords = 500
oQuery.Columns = "doctitle,FileName,Path,Characterization,Rank,vpat h,description,dockeywords,write"
' creamos y leemos propiedades del conjunto de resultados
Set oRS = oQuery.CreateRecordset("nonsequential")
'oRS.PageSize = 15 'pa que?
regTot = oRS.RecordCount ' propiedad, calculamos el total de paginas en el obj. pag.
'guardamos los resultados y cerramos el RecordSet
If Not oRs.EOF Then
arrDatos = oRS.GetRows()
' si no se requiere paginacion usarlo de esta manera
'iRi = LBound(arrDatos, 2)
'iRf = UBound(arrDatos, 2)
'iCi = LBound(arrDatos, 1)
'iCf = UBound(arrDatos, 1)
End IF
oRs.Close
Set oRS = Nothing
La busqueda se almacena en un objeto parecido a un RecordSet , debe de estar funcionando el Index Server y existir una catalogo.
http://www.asp101.com/articles/john/...er/default.asp
hechenle huevos ! saludos desde Mexico.