un error que no entiendo

[virla]

hola amigos estoy integrando en el buscador de mi pagina el buscador de google que figura aqui en uno de los post que toma los datos de google y los muestra en mi pagina.
cuando lo corro por separado todo me funciona super bien es mas hasta le hice los estilos y esta de 10, pero cuando lo integro al otro buscador, como esta inserto en un include todo lo del buscador me saltan errores
el primer error que me sale es

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
Public namearray

si le quito el Public me sale esto otro error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos: 'Left'

alguien puede decirme como arreglar esto?
desde ya muchas gracias

[Muzztein]

compartenos el codigo para poder revisarlo.

(el error de la funcion LEFT es por que la variable con la que esta trabajando viene vacia.)

[virla]

<%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
'FUNZIONE: questo script si occupa di visualizzare i risultati della ricerca in articoli e fotografie
%>
<% Response.Buffer = True %>
<!--#include virtual="/mdb-database/inc_costanti.asp"-->
<!--#include file="inc_db.asp"-->
<!--#include file="inc_funzioni.asp"-->
<!--#include file="inc_moduli.asp"-->
<%
Sub Contenuto()
%>
<%
if Request.QueryString("opc")= "Web" then
%>
<div id="briciole">\\ <span><a href="default.asp"><%=Sezione_HomePage%></a> : <%=Sezione_Cerca%></span></div>
<%
'Se la ricerca non è abilitata visualizzo il messaggio
If Abilita_Ricerca = False Then
%>
<div class="giustificato"><%=Errore_Ricerca_NonAbilitat a%></div>
<%
Else
Dim SQL_News, RS_News, Parole, ArticoloTrovato
'Altrimenti eseguo il controllo sulle parole cercate
If Request.QueryString("cosa") = "" OR IsNull(Request.QueryString("cosa")) OR Len(Request.QueryString("cosa")) < 3 Then
Parole = ""
Else
Parole = Request.QueryString("cosa")
End If
'Il minimo di caratteri richiesti per la ricerca è 3
If Parole = "" Then
%>
<div class="giustificato"><%=Errore_Ricerca_Minimo3car% ></div>
<%
Else
%>
<div class="giustificato"><%=Testo_Seguono_risultati%></div>
<div class="giustificato"><strong><%=Ricerca_Articoli_p er%>&nbsp;<%=Server.HTMLEncode(Parole)%></strong></div>
<%
'Effettuo la ricerca per parole chiave negli articoli
SQL_News = "SELECT * FROM tblDiario ORDER BY id DESC"
Set RS_News = Server.CreateObject("ADODB.Recordset")
RS_News.Open SQL_News, ConNews, 1, 3
Dim TagsSplit
If RS_News.EOF = False Then

'E visualizzo gli eventuali risultati
Do While NOT RS_News.EOF

If InStr(LCase(FileToVar(Path_DirPublic_News & RS_News("texto"), 0)), LCase(Parole)) > 0 OR InStr(LCase(RS_News("Titulo")), LCase(Parole)) > 0 OR InStr(LCase(RS_News("copete")), LCase(Parole)) > 0 Then
CorrisponzaTrovata=true
end if
If CorrisponzaTrovata then
ArticoloTrovato = True
StatoAttualeTrailer = Abilita_Trailer
Abilita_Trailer = True
%>
<div class="sopra">
<div class="titolo">
<a href="noticia.asp?id=<%=RS_News("id")%>"><%=RS_New s("Titulo")%></a>
</div>
<div class="piccolo">
<%=Contributo_Di%>&nbsp;<a href="autori.asp?chi=<%=RS_News("autor")%>"><%=RS_ News("autor")%></a>&nbsp;<%=Pubblicato_il%>&nbsp;<%=StrToData(RS_Ne ws("Fecha"))%>&nbsp;<%=Pubblicato_alle%>&nbsp;<%=S trToOra(RS_News("horaEd"))%>
</div>
</div>
<div class="divider">&nbsp;</div>
<%
Abilita_Trailer = StatoAttualeTrailer
End If
if not RS_News.eof then
RS_News.MoveNext
else
exit do
end if
Loop
If ArticoloTrovato = False Then
%>
<div class="giustificato">
<%=Errore_Articolo_NonTrovato%>
</div>
<%
End If
Else
%>
<div class="giustificato">
<%=Errore_Articolo_NonTrovato%>
</div>
<%
End If
Set RS_News = Nothing
End If
End If
else

CONTINUA...

[virla]

%>
<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">&nbsp;<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),"&quot ;")%>
<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">&nbsp;<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

[virla]

Código:

for j=0 to spellingmax
if inStr(keywords,spellingarray(j))=0 then
Spellingitalic=replace(Spellingitalic,spellingarray(j),"<b><i>"&spellingarray(j)&"</i></b>")
end if
next
ResponsePage=Replace(ResponsePage," xsi:type=" & CHR(34) & "xsd:string" & CHR(34),"") 
ResponsePage=Replace(ResponsePage,"&lt;b&gt;","<b>") 
ResponsePage=Replace(ResponsePage,"&lt;/b&gt;","</b>") 
ResponsePage=Replace(ResponsePage,"&lt;br&gt;","<br>")
EstimatedResults=left(ResponsePage,inStr(ResponsePage,"</estimatedTotalResultsCount>")-1) 
EstimatedResults=right(EstimatedResults,len (EstimatedResults)-inStr(EstimatedResults,"<estimatedTotalResultsCount")-46)
EstimatedResults=Ccur(EstimatedResults)
StartResults=left(ResponsePage,inStr(ResponsePage,"</startIndex>")-1) 
StartResults=right(StartResults,len (StartResults)-inStr(StartResults,"<startIndex")-30)
StopResults=left(ResponsePage,inStr(ResponsePage,"</endIndex>")-1) 
StopResults=right(StopResults,len (StopResults)-inStr(StopResults,"<endIndex")-28)
SearchTime=left(ResponsePage,inStr(ResponsePage,"</searchTime>")-1) 
SearchTime=right(SearchTime,len (SearchTime)-inStr(SearchTime,"<searchTime")-33)
SearchTime=left(SearchTime,len (SearchTime)-inStr(SearchTime,".")-2)
%>
<div id="contBarraIndica">
<div class="contTipoBusqueda">Google.com.ar</div>
<div class="ContResultados" align="right">
Página: <b>
<%if request.querystring("h")=0 then%> 1 <%else%>
<%=left(request.querystring("h"),len(request.querystring("h"))-1)+1%></b>
<%end if%>
</b> 
- Resultados <b><%=StartResults%> - <%=StopResults%></b> de aproximadamente <b><%= EstimatedResults %></b> para <b><%= request.querystring("keywords") %></b>
(<%=SearchTime%> segundos)
</div>
</div>
<br>
<%if Spelling<>"" then%>
¿Quiso decir? &nbsp;<a href="<%= request.servervariables("URL") %>?keywords=<%= Spelling %>&h=0<%if opc<>"all" then%>&opc=<%=opc%><%end if%>"><%=Spellingitalic%></a><br><br>
<%end if
public namearray 
namearray=split (ResponsePage,"<item xsi:type=" & CHR(34) & "ns1:ResultElement" & CHR(34) & ">") 
max=ubound(namearray)
for i=1 to max
theurl=left(namearray(i),inStr(namearray(i),"</URL>")-1) 
theurl=right(theurl,len (theurl)-instr(theurl,"<URL>")-4)
if inStr(right(theurl,len(theurl)-6),"pdf") then
tipo="pdf"
else
tipo="web"
end if
thetitle=left(namearray(i),inStr(namearray(i),"</title>")-1) 
thetitle=right(thetitle,len (thetitle)-inStr(thetitle,"<title>")-6)
thetitle=Replace(thetitle, "&amp;", "&")
if thetitle="" then 
thetitle=left(namearray(i),inStr(namearray(i),"</directoryTitle>")-1)
thetitle=right(thetitle,len (thetitle)-inStr(thetitle,"<directoryTitle>")-15)
thetitle=Replace(thetitle, "&amp;", "&")
end if
if thetitle="" then
thetitle="SIN TITULO"
end if
thedescription=left(namearray(i),inStr(namearray(i),"</snippet>")-1) 
thedescription=right(thedescription,len (thedescription)-inStr(thedescription,"<snippet>")-8)
thedescription=Replace(thedescription, "&amp;", "&")
if thedescription = "" then
thedescription=left(namearray(i),inStr(namearray(i),"</summary>")-1)
thedescription=right(thedescription,len (thedescription)-inStr(thedescription,"<summary>")-8)
thedescription=Replace(thedescription, "&amp;", "&")
end if
thesize=left(namearray(i),inStr(namearray(i),"</cachedSize>")-1) 
thesize=right(thesize,len (thesize)-instr(thesize,"<cachedSize>")-11)
if tipo="pdf" then%>
<sup>[PDF] </sup>
<%end if%>
<a href="<%=theurl%>" target="_blank"><u><%=thetitle%></u></a><br>
<div class="BusDescrip"><%=thedescription%></div>
<div class="busRef"><%=theurl%><%if thesize<>"" then%> - <%=thesize%><%end if%> - <a href="http://www.google.com/search?q=cache:<%=theurl%>" target="_blank">En caché</a> - <a href="http://www.google.com/search?q=related:<%=theurl%>" target="_blank">Páginas similares</a></div>
<%next 
end if%> 
</form>
<%If EstimatedResults > maxResults then
keywordsstr=request.querystring("keywords")
keywordsstr=Replace(keywordsstr,CHR(34),"%22")%>
<p align="center">
<table border="0" cellspacing="0" style="text-align: center">
<tr> 
<%If request.querystring("h") >= 10 Then%>
<td width="8"> 
<table border="0" cellspacing="1" bgcolor="#ffffff">
<tr> 
<td class="numero">
<a href="<%= request.servervariables("URL") %>?keywords=<%= keywordsstr %>&h=<%= request.querystring("h")-10 %><%if opc<>"all" then%>&opc=<%=opc%><%end if%>" class="numero">Anterior</a>&nbsp;&nbsp;
</td>
</tr>
</table>
</td>
<%end if%>
<img src="template/Marcos/gfx/LogoGoogle.png" />
<%If Ccur(Request.QueryString("h"))+10 < EstimatedResults Then%>
<td width="1"> 
<table border="0" cellspacing="1" bgcolor="#ffffff">
<tr> 
<td class="numero">
&nbsp;&nbsp;<a href="<%= request.servervariables("URL") %>?keywords=<%= keywordsstr %>&h=<%= request.querystring("h")+10 %><%if opc<>"all" then%>&opc=<%=opc%><%end if%>" class="numero">Siguiente</a>
</td>
</tr>
</table>
</td>
<%End If%>
</tr>
</table>
</p>
<%end if
End if%>
<%
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_Cerca, "", "")
ConNews.Close
Set ConNews = Nothing
%>

[virla]

ese es todo el codigo alguien me tire una soga plis

[virla]

bueno tocando tocando logre que cuando hace la busqueda en la db del sitio funcione pero cuando hace el de google salta el error

[virla]

alguien que me tire una soga plis

[virla]

nadie puede ayudarme con esto, le he dado bueltas al codigo he intentado de todo pero nada sigue con ese error, tiene que haber algun maestro aca que me pueda decir como solucionar este error

[Muzztein]

"Ascurrase mijito"
Es mucho texto, a nadie le van a dar las ganas de leer tremendo mamotreto.
Quizas si pudieras decir en que linea te da el error.

[virla]

Iniciado por Muzztein

compartenos el codigo para poder revisarlo.

(el error de la funcion LEFT es por que la variable con la que esta trabajando viene vacia.)

El error esta marcado en rojo y fuistes vos el que solicito el codigo, ji

[Muzztein]

yaps... esperate un ratito ahora que me voy a poner inmediatamente a ayudarte con tu problema.

dame 5 minutos.

[virla]

la verdad no busco que nadie revise todo el codigo, creo que por ahi ese tipo de enstucciones deben ir en algun lugar especial ya que cuando el codigo lo ejecuto directamente de la pagina funciona pero cuando entra como una inclucion me salta el error por eso pregunto a los maestros que por ahi viendo el error se den cuanta y me tiren una orientacion

[virla]

alguien que pueda decirme como solucionar esto?
No puedo creer que ningun maestro pueda decirme el porque de estos errores

[Shiryu_Libra]

virla

.... que no se supone que al realizar "instr" te devuelve en donde empieza la palabra que buscas, es asi?

pero si te regresa 0 y le restas 1, da error, que no?

no has intentado realizar un "Mid" en lugar de "left/right"?

Código:

EstimatedResults=mid(ResponsePage,(inStr(EstimatedResults,"<estimatedTotalResultsCount")+len("<estimatedTotalResultsCount")),(inStr(ResponsePage,"</estimatedTotalResultsCount>")-1))
StartResults=mid(ResponsePage,(inStr(StartResults,"<startIndex>")+len("<startIndex>")),(inStr(ResponsePage,"</startIndex>")-1))
StopResults=mid(ResponsePage,(inStr(ResponsePage,"<endIndex")+len("<endIndex>")),(inStr(ResponsePage,"</endIndex>")-1))
SearchTime=mid(ResponsePage,(inStr(ResponsePage,"<searchTime>")+len("<searchTime>")),(inStr(ResponsePage,"</searchTime>")-1))
SearchTime=left(SearchTime,len (SearchTime)-inStr(SearchTime,".")-2)

[virla]

la verdad no lo he probado, pero vuelvo a decir el problema no es ahi ya que utilizando el codigo solo en una pagina html o asp me funciona correctamente pero cuando lo meto dentro de un include aparecen los errores y se me hace que por esa razon hay algun parametro que deberia cargarce en otro lugar y no ahi.
lo que no se es si se puede hacer una funcion para que cuando necesite hacer la busqueda en google corra la funcion y me de los resultados

[Shiryu_Libra]

cuando creas el include......

este codigo depende de estos otros "includes" tambien

<!--#include virtual="/mdb-database/inc_costanti.asp"-->
<!--#include file="inc_db.asp"-->
<!--#include file="inc_funzioni.asp"-->
<!--#include file="inc_moduli.asp"-->

[virla]

explico es un blog creado por un italiano lo que yo estoy haciendo es adaptarlo en lagunas de las cosas a mi necesidad

<!--#include virtual="/mdb-database/inc_costanti.asp"--> contantes del lenguaje
<!--#include file="inc_db.asp"--> path y inicializacion de la db
<!--#include file="inc_funzioni.asp"--> funciones que utiliza la pagina y el blog, necesario
<!--#include file="inc_moduli.asp"--> donde se encuentran los modulos
todos estos includes deben estar ya que son funcional a la pagina no con el codigo mio
pero por ejemplo
el html que tiene el skin tiene varios llamados enserrados entre [#NOMBRE DEL MODULO#]
y aca se va armando la pagina y creo que es esto lo que esta jodiendo, es por eso que creo que por ahi hay algunas de las sentencias que deben estar puestas en otro lado y no directamente en la pagina ya que al pasar por varios function sub he includes puede que pierda valores o no tome alguna de las sentencias que cuando se corre solo si funciona.
por eso pregunto si es posible hacer de el codigo de busqueda de google una funcion donde se le manda los datos y me trae debuelta los resultados para mostrar en la pagina

[virla]

fijate que el codigo empieza
<%
Sub Contenuto()
%>
y finaliza
<%
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_Cerca, "", "")
ConNews.Close
Set ConNews = Nothing
%>
ese genera la pagina y hace la muestra en pantalla y creo que es el que causa parte del problema pero creo que debe haber una solucion para respetar el estilo y el formato de programacion del autor

[Shiryu_Libra]

entonces si esta pagina es creada dinamicamente, no hay referencia para los XML que se generan con el codigo de busqueda de google, que no?
puede significar que te esta regresando nulo..

mencionas que si lo utilizas directamente no hay problema, por que hay una referencia de llamado, pero como esta es creada dinamicamente, puede ser que el XML de ResponsePage, tenga error y por eso los problemas con el LEFT, ya que si hay null en el instr menos 1... no crees?

habria que mirar el contexto de otra forma

ahora, no hay posibilidades de mandar llamar esto codigo como si fuese una pagina independiente del programa?

[virla]

no porque quedaria fuera de la estructura del sitio, por eso digo de hacer una function para que se ejecute el codigo y me tire los resultados limpios

[Shiryu_Libra]

uff, en este caso, la depuracion sera la unica constante, creo que seria mas factible si en las llamadas a los XML, realizaras algunos "response.write", para constatar que si trae resultados

y antes de los "left/right", para saber si tus "instr" en realidad encuentran esas etiquetas

: creo que seria lo unico que hacer, ya que si tu codigo funciona bien, independiente; pero falla al momento de llamarlo mediante codigo, no queda otra solucion

no se que opines?

[virla]

ok y como seria eso porque al salir los errores el response.wri no me va a decir nada y que dato seria el que deberia mostrar?

[Shiryu_Libra]

aki lo que buscamos es que imprima algun dato, por ejemplo en los instr, deberia imprimirte numeros relacionados a la posicion en la cadena resultante, y el XML, para saber si la estructura es correcta <identificador>datos</identificador>

tambien en el response.write, hay que anexarle despues un response.flush, para que nos envie la informacion a la pagina, y detectaras cuando ocurre el error, sabemos que es en LEFT, pero, que datos existieron para que este LEFT no funcionara

[virla]

bueno aqui te pongo lo que puse y el resultado que me dio
el primer error como siempre fue public namearray
asique le puse dim namearray
corri nuevamente la pagina con estas modificaciones

Código:

     Set objXML = Nothing
     if inStr(ResponsePageSpelling,"</return>") then
      Spelling=left(ResponsePageSpelling,inStr(ResponsePageSpelling,"</return>")-1) 
      Spelling=right(Spelling,len (Spelling)-inStr(Spelling,"<return")-29)
     end if
     spellingarray=Split(Spelling," ")
     spellingmax=ubound(spellingarray)
     Spellingitalic=Spelling
 
     response.write spellingmax
     response.flush
 
     for j=0 to spellingmax
      if inStr(keywords,spellingarray(j))=0 then
       Spellingitalic=replace(Spellingitalic,spellingarray(j),"<b><i>"&spellingarray(j)&"</i></b>")
      end if
     next

el resultado es -1

[virla]

bueno tengo algo para decirte que acabo de descubrir
en la pagina de inicio tengo el buscador que claro esta el form llama a la pagina que hace la busqueda, ahi me da el error pero como con el response.flush me muestra el contenido con el error y la pagina a medio armar puedo ver el input type="text" y le hago la busqueda ahi y funciona perfecto tanto uno como el otro, por ahi eso es una buena pista de lo que esta sucediendo

[virla]

Bueno amigo tu ayuda fue muy bueno y te lo agradezco ya encontre el error y esta todo funcionando super bien.
millones de gracias

[Shiryu_Libra]

pero el error sigue apareciendo en el mismo lugar?

o ya salto otra linea?

[virla]

no esta todo solucionado, es que de la pagina principal me faltaba mandar otros parametros y ahi era donde estaba el error de hecho realice varias busquedas y ademas fui pasando de la 1 a la 2 y 3 pagina para ver si todo funcionaba bien y si todo OK
Nuevamente gracias

[Shiryu_Libra]

perfecto...

lo que puede realizar un Flush()
verdad