Foros del Web » Programando para Internet » ASP Clásico »

un error que no entiendo

Estas en el tema de un error que no entiendo en el foro de ASP Clásico en Foros del Web. 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 ...

  #1 (permalink)  
Antiguo 11/07/2008, 09:59
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #2 (permalink)  
Antiguo 11/07/2008, 10:36
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Respuesta: un error que no entiendo

compartenos el codigo para poder revisarlo.

(el error de la funcion LEFT es por que la variable con la que esta trabajando viene vacia.)
  #3 (permalink)  
Antiguo 11/07/2008, 11:01
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

<%
'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...
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #4 (permalink)  
Antiguo 11/07/2008, 11:02
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

%>
<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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla

Última edición por virla; 11/07/2008 a las 11:13
  #5 (permalink)  
Antiguo 11/07/2008, 11:03
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
%>
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla

Última edición por virla; 11/07/2008 a las 12:55 Razón: retoque
  #6 (permalink)  
Antiguo 11/07/2008, 11:04
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

ese es todo el codigo alguien me tire una soga plis
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #7 (permalink)  
Antiguo 11/07/2008, 12:04
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

bueno tocando tocando logre que cuando hace la busqueda en la db del sitio funcione pero cuando hace el de google salta el error
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #8 (permalink)  
Antiguo 12/07/2008, 06:11
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

alguien que me tire una soga plis
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #9 (permalink)  
Antiguo 14/07/2008, 07:39
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #10 (permalink)  
Antiguo 14/07/2008, 08:04
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Respuesta: un error que no entiendo

"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.
  #11 (permalink)  
Antiguo 14/07/2008, 08:07
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

Cita:
Iniciado por Muzztein Ver Mensaje
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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #12 (permalink)  
Antiguo 14/07/2008, 08:13
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Respuesta: un error que no entiendo

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

dame 5 minutos.
  #13 (permalink)  
Antiguo 14/07/2008, 08:16
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #14 (permalink)  
Antiguo 15/07/2008, 05:56
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

alguien que pueda decirme como solucionar esto?
No puedo creer que ningun maestro pueda decirme el porque de estos errores
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #15 (permalink)  
Antiguo 16/07/2008, 01:55
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

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)

__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #16 (permalink)  
Antiguo 16/07/2008, 06:24
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #17 (permalink)  
Antiguo 16/07/2008, 10:00
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

cuando creas el include......

este codigo depende de estos otros "includes" tambien
Cita:
<!--#include virtual="/mdb-database/inc_costanti.asp"-->
<!--#include file="inc_db.asp"-->
<!--#include file="inc_funzioni.asp"-->
<!--#include file="inc_moduli.asp"-->
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #18 (permalink)  
Antiguo 16/07/2008, 10:09
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #19 (permalink)  
Antiguo 16/07/2008, 10:11
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #20 (permalink)  
Antiguo 16/07/2008, 10:19
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

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?
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #21 (permalink)  
Antiguo 16/07/2008, 10:22
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #22 (permalink)  
Antiguo 16/07/2008, 10:32
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

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?
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #23 (permalink)  
Antiguo 16/07/2008, 10:34
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #24 (permalink)  
Antiguo 16/07/2008, 10:59
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

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
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #25 (permalink)  
Antiguo 16/07/2008, 11:30
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #26 (permalink)  
Antiguo 16/07/2008, 11:37
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #27 (permalink)  
Antiguo 16/07/2008, 12:02
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

Bueno amigo tu ayuda fue muy bueno y te lo agradezco ya encontre el error y esta todo funcionando super bien.
millones de gracias
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #28 (permalink)  
Antiguo 16/07/2008, 12:07
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

pero el error sigue apareciendo en el mismo lugar?

o ya salto otra linea?
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #29 (permalink)  
Antiguo 16/07/2008, 12:20
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
Respuesta: un error que no entiendo

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
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #30 (permalink)  
Antiguo 16/07/2008, 12:21
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: un error que no entiendo

perfecto...

lo que puede realizar un Flush()
verdad
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:54.