%>
<style>
#contBarraIndica{ width: 99%; height: 18px; background: #d5ddf3; color: #000; padding: 5px; border-top: 1px solid #36c; }
.contTipoBusqueda{ width: 20%; float: left; font-family: arial,sans-serif; font-size: 14px; font-weight: bold; }
.ContResultados{ width: 79%; float: left; font-family: arial,sans-serif; font-size: 14px; text-align: right; }
.TxtBuscador{ font-family: arial,sans-serif; font-size: 12px; }
.TituloBuscador{ font-family: arial,sans-serif; font-size: 12px; color: #0000CC; }
a { color:#00c; font-family: arial,sans-serif; font-size: 16px; }
a:visited{ color:#551a8b; }
a:active{ color:red; }
.BusDescrip{ font-family: arial, sans-serif; font-size: 13px; }
.busRef { font-family: arial, sans-serif; font-size: 13px; color:#008000; margin-bottom: 15px; }
.busRef a { font-family: arial, sans-serif; font-size: 13px; color: #77c; font-weight: 100; }
.numero { font-family: arial, sans-serif; font-size: 16px; font-weight: bolder; }
.numero a { color: #00c; }
</style>
<%keywords=request.querystring("cosa")
keywords=Replace(keywords,"á","a")
keywords=Replace(keywords,"é","e")
keywords=Replace(keywords,"í","i")
keywords=Replace(keywords,"ó","o")
keywords=Replace(keywords,"ú","u")
keywords=Replace(keywords,"ñ","n")
keywords=Replace(keywords,"Á","A")
keywords=Replace(keywords,"É","E")
keywords=Replace(keywords,"Í","I")
keywords=Replace(keywords,"Ó","O")
keywords=Replace(keywords,"Ú","U")
keywords=Replace(keywords,"Ñ","N")
if keywords="" then%>
<form method=get action=<% =request.servervariables("URL") %> name="buscador">
<input type="text" name="cosa" size="50">
<input type="hidden" name="h" value="0">
<input type="submit" value="Buscar"> <br>
<label class="TxtBuscador">Buscar </label><input type="radio" name="opc" value="web" checked>
<label class="TxtBuscador">Noticias: </label><input type="radio" name="opc" value="Goo">
<label class="TxtBuscador">Google en español<label>
<b>Introduzca en el formulario de arriba los criterios de búsqueda.</b>
<%else
opc=Request("opc")
if opc="" then opc="all"
keywordsinput=request("keywords")
keywordsinput=Replace(keywordsinput,CHR(34),"" ;")%>
<form method=get action=<% =request.servervariables("URL") %> name="buscador">
<input type="text" name="cosa" size="50" value="<%= keywordsinput %>">
<input type="hidden" name="h" value="0">
<input type="submit" value="Buscar"> <br>
<label class="TxtBuscador">Buscar </label><input type="radio" name="opc" value="web" <%if opc="web" then%>checked<%end if%>>
<label class="TxtBuscador">Noticias: </label><input type="radio" name="opc" value="Goo" <%if opc="spa" then%>checked<%end if%>>
<label class="TxtBuscador">Google en español<label>
<br>
</p>
<%
' ################################################## ######
' INICIO PERSONALIZACION DE DATOS
' Aqui debes introducir la "key" que te proporciona Google
key = "AQUI VA EL CODIGO QUE TE DA GOOGLE"
' Aqui tu direccion web SIN http://
web = "
http://www.xxxxxx.com.ar"
' Aqui la URL donde se encuentra el script
URL = "
http://www.xxxx.com.ar/buscador.asp"
' ################################################## #######
maxResults = 10
if opc="web" then
'Response.Redirect("modulos/search.asp?mod=adv")
'SoapText = "<?xml version='1.0' encoding='UTF-8'?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV:Body><ns1:doGoogleSearch xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><key xsi:type='xsd:string'>" & key & "</key><q xsi:type='xsd:string'>" & keywords & " site:" & web & "</q><start xsi:type='xsd:int'>" & request.querystring("h") & "</start><maxResults xsi:type='xsd:int'>" & maxResults & "</maxResults><filter xsi:type='xsd:boolean'>true</filter><restrict xsi:type='xsd:string'></restrict><safeSearch xsi:type='xsd:boolean'>false</safeSearch><lr xsi:type='xsd:string'></lr> <ie xsi:type='xsd:string'>latin1</ie><oe xsi:type='xsd:string'>latin1</oe></ns1:doGoogleSearch></SOAP-ENV:Body></SOAP-ENV:Envelope>"
elseif opc="spa" then
SoapText = "<?xml version='1.0' encoding='UTF-8'?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV:Body><ns1:doGoogleSearch xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><key xsi:type='xsd:string'>" & key & "</key><q xsi:type='xsd:string'>" & keywords & "</q><start xsi:type='xsd:int'>" & request.querystring("h") & "</start><maxResults xsi:type='xsd:int'>" & maxResults & "</maxResults><filter xsi:type='xsd:boolean'>true</filter><restrict xsi:type='xsd:string'></restrict><safeSearch xsi:type='xsd:boolean'>false</safeSearch><lr xsi:type='xsd:string'>lang_es</lr> <ie xsi:type='xsd:string'>latin1</ie><oe xsi:type='xsd:string'>latin1</oe></ns1:doGoogleSearch></SOAP-ENV:Body></SOAP-ENV:Envelope>"
else
'SoapText = "<?xml version='1.0' encoding='UTF-8'?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV:Body><ns1:doGoogleSearch xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><key xsi:type='xsd:string'>" & key & "</key><q xsi:type='xsd:string'>" & keywords & "</q><start xsi:type='xsd:int'>" & request.querystring("h") & "</start><maxResults xsi:type='xsd:int'>" & maxResults & "</maxResults><filter xsi:type='xsd:boolean'>true</filter><restrict xsi:type='xsd:string'></restrict><safeSearch xsi:type='xsd:boolean'>false</safeSearch><lr xsi:type='xsd:string'></lr> <ie xsi:type='xsd:string'>latin1</ie><oe xsi:type='xsd:string'>latin1</oe></ns1:doGoogleSearch></SOAP-ENV:Body></SOAP-ENV:Envelope>"
end if
Googleurl = "
http://api.google.com/search/beta2"
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "POST",Googleurl,"False"
objXML.setRequestHeader "Man", "POST"+" "+Googleurl+" HTTP/1.1"
objXML.setRequestHeader "MessageType", "CALL"
objXML.setRequestHeader "Content-Type", "text/xml"
objXML.send SoapText
ResponsePage = objXML.responseText
Set objXML = Nothing
SoapTextSpelling ="<?xml version='1.0' encoding='UTF-8' ?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV:Body><ns1:doSpellingSuggestion xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><key xsi:type='xsd:string'>" & key & "</key><phrase xsi:type='xsd:string'>" & request.querystring("keywords") & "</phrase></ns1:doSpellingSuggestion></SOAP-ENV:Body></SOAP-ENV:Envelope>"
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "POST",Googleurl,"False"
objXML.setRequestHeader "Man", "POST"+" "+Googleurl+" HTTP/1.1"
objXML.setRequestHeader "MessageType", "CALL"
objXML.setRequestHeader "Content-Type", "text/xml"
objXML.send SoapTextSpelling
ResponsePageSpelling = objXML.responseText
Set objXML = Nothing
if inStr(ResponsePageSpelling,"</return>") then
Spelling=left(ResponsePageSpelling,inStr(ResponseP ageSpelling,"</return>")-1)
Spelling=right(Spelling,len (Spelling)-inStr(Spelling,"<return")-29)
end if
spellingarray=Split(Spelling," ")
spellingmax=ubound(spellingarray)
Spellingitalic=Spelling