Foros del Web - Ver Mensaje Individual

pepelucho · #6 (**permalink**) 03/07/2002, 10:22

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Index Server </title>
</head>

<body>
<%

Dim sSearchString
Dim oQuery

sSearchString = Request.Form("query")

Const SEARCH_CATALOG = "asp" 'tienes que cambiar esta linea con el nombre del catalogo

%>
<%
Set oQuery = Server.CreateObject("IXSSO.Query") 'este componente se puede usar solo tienes instalado el Index Server

oQuery.Catalog = SEARCH_CATALOG
oQuery.Query = "@all " & sSearchString & " AND NOT #path *_* AND NOT #path *downloads* AND NOT #path *images* AND NOT #filename *.class AND NOT #filename *.asa AND NOT #filename *.css AND NOT #filename *postinfo.html"
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d]"
oQuery.SetQueryFromURL(Request.ServerVariables(&qu ot;QUERY_STRING"))
oQuery.Columns = "DocAuthor, vpath, doctitle, FileName, Path, Write, Size, Rank, Create, Characterization, DocCategory"
Set oRS = oQuery.CreateRecordSet("nonsequential")
%>
<%
If oRS.EOF Then
Response.Write "No se encontrarón páginas para la búsqueda de " & sSearchString & ""
Else
Do While Not oRS.EOF
Response.write "vp: " & oRS("vpath") & " "
Response.write "wr: " & oRS("Write") & " "
Response.write "ran: " & oRS("Rank") & " "
Response.write "ran: " & oRS("DocCategory") & " "
Response.write "FileName: " & oRS("FileName") & " "
Response.write "path: " & oRS("path") & " "
Response.write "doctitle: " & oRS("doctitle") & " "
Response.write "Size: " & oRS("Size") & " "
Response.write "Create: " & oRS("Create") & " "
Response.write "Write: " & oRS("Write") & " "
response.write("URL : http://" &Request("server_name")&oRS(&quo t;vpath")&" ")
Response.write "Characterization: " & oRS("Characterization") & "<hr>"

oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)