% FormScope = "/" PageSize = 10 SiteLocale = "EN-US" %> <% ' Set Initial Conditions NewQuery = FALSE UseSavedQuery = FALSE SearchString = "" QueryForm = Request.ServerVariables("PATH_INFO") ' Did the user press a SUBMIT button to execute the form? If so get the form variables. if Request.ServerVariables("REQUEST_METHOD") = "POST" then SearchString = Request.Form("SearchString") ' NOTE: this will be true only if the button is actually pushed. if Request.Form("Action") = "BUSCAR" then NewQuery = TRUE RankBase=1000 end if end if if Request.ServerVariables("REQUEST_METHOD") = "GET" then SearchString = Request.QueryString("qu") FreeText = Request.QueryString("FreeText") FormScope = Request.QueryString("sc") RankBase = Request.QueryString("RankBase") if Request.QueryString("pg") <> "" then NextPageNumber = Request.QueryString("pg") NewQuery = FALSE UseSavedQuery = TRUE else NewQuery = SearchString <> "" end if end if %>
<%
if NewQuery then
set Session("Query") = nothing
set Session("Recordset") = nothing
NextRecordNumber = 1
' Remove any leading and ending quotes from SearchString
SrchStrLen = len(SearchString)
if left(SearchString, 1) = chr(34) then
SrchStrLen = SrchStrLen-1
SearchString = right(SearchString, SrchStrLen)
end if
if right(SearchString, 1) = chr(34) then
SrchStrLen = SrchStrLen-1
SearchString = left(SearchString, SrchStrLen)
end if
if FreeText = "on" then
CompSearch = "$contents " & chr(34) & SearchString & chr(34)
else
CompSearch = SearchString
end if
set Q = Server.CreateObject("ixsso.Query")
set util = Server.CreateObject("ixsso.Util")
'ADDED BY ED RASHER - HOST DEPOT - 10/27/1998
Q.Catalog = "D:\InetPub\008"
Q.Query = CompSearch
Q.SortBy = "rank[d]"
Q.Columns = "DocTitle, vpath, filename, size, write, characterization, rank"
Q.MaxRecords = 300
if FormScope <> "\" then
util.AddScopeToQuery Q, FormScope, "deep"
end if
if SiteLocale<>"" then
Q.LocaleID = util.ISOToLocaleID(SiteLocale)
end if
set RS = Q.CreateRecordSet("nonsequential")
RS.PageSize = PageSize
ActiveQuery = TRUE
elseif UseSavedQuery then
if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then
set Q = Session("Query")
set RS = Session("RecordSet")
if RS.RecordCount <> -1 and NextPageNumber <> -1 then
RS.AbsolutePage = NextPageNumber
NextRecordNumber = RS.AbsolutePosition
end if
ActiveQuery = TRUE
else
Response.Write "ERROR - consulta no salvada"
end if
end if
if ActiveQuery then
if not RS.EOF then
%>
<%
LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
CurrentPage = RS.AbsolutePage
if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
LastRecordOnPage = RS.RecordCount
end if
Response.Write "Documentos " & NextRecordNumber & " al " & LastRecordOnPage
if RS.RecordCount <> -1 then
Response.Write " de un total de " & RS.RecordCount
end if
Response.Write " que contienen las palabras " & chr(34) & ""
Response.Write SearchString & "" & chr(34) & ". "
%> <% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>
<% ' Graphically indicate rank of document with list of stars (*'s). if NextRecordNumber = 1 then RankBase=RS("rank") end if if RankBase>1000 then RankBase=1000 elseif RankBase<1 then RankBase=1 end if NormRank = RS("rank")/RankBase if NormRank > 0.80 then stars = "rankbtn5.gif" elseif NormRank > 0.60 then stars = "rankbtn4.gif" elseif NormRank > 0.40 then stars = "rankbtn3.gif" elseif NormRank >.20 then stars = "rankbtn2.gif" else stars = "rankbtn1.gif" end if %> <%response.write NextRecordNumber&".- "%> | <%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%> "
class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%> <%else%> " class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%> <%end if%> <%
' Construct the URL for hit highlighting
WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") )
WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( Q.Query )
WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "" )
WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "" )
WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm
' WebHitsQuery = WebHitsQuery & "&CiLocale=" & Q.LocaleID
%><%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
<%end if%> <%if RS("size") = "" then%> (tamaño y fecha desconocidos)<%else%>tamaño <%=RS("size")%> bytes - <%=RS("write")%> GMT<%end if%>
|
<%
else ' NOT RS.EOF
if NextRecordNumber = 1 then
Response.Write "No se encontró ningún documento "
else
Response.Write "No hay más documentos que mostrar "
end if
end if ' NOT RS.EOF
if NOT Q.OutOfDate then
' If the index is current, display the fact %>
El índice está actualizado.
<%end if
if Q.QueryIncomplete then
' If the query was not executed because it needed to enumerate to
' resolve the query instead of using the index, but AllowEnumeration
' was FALSE, let the user know %>
La búsqueda es demasiado compleja.
<%end if
if Q.QueryTimedOut then
' If the query took too long to execute (for example, if too much work
' was required to resolve the query), let the user know %>
Llevó demasiado tiempo completar esta
búsqueda.
<%end if%>
<%SaveQuery = TRUE%> <%end if%> <% ' This is the "next" button for unsorted queries. ' This retrieves the next page of documents for the query. if Not RS.EOF then%> | <%SaveQuery = TRUE%> <%end if%> |
Página <%=CurrentPage%> <%if RS.PageCount <> -1 then Response.Write " de " & RS.PageCount end if %> <% ' If either of the previous or back buttons were displayed, save the query ' and the recordset in session variables. if SaveQuery then set Session("Query") = Q set Session("RecordSet") = RS else RS.close Set RS = Nothing Set Q = Nothing set Session("Query") = Nothing set Session("RecordSet") = Nothing end if %> <% end if %>
Instrucciones: Para realizar una búsqueda en el sitio de Mercodatos, escriba en este campo la frase o palabra a buscar. Puede escribir el nombre de un producto, (por ejemplo "Avena"); un nombre propio, (por ejemplo "Pedro Suárez"); un cargo ("Ministro de interior"); o un concepto ("importaciones"). Puede indicar operadores lógicos para la búsqueda, pero deben estar en inglés. Por ejemplo puede buscar: "Agricultura and ganadería". O "Frei and (Chile or Santiago)". |