problemas con buscador

tork · #1 (**permalink**) 09/03/2004, 12:21

Necesito ayuda urgente con un buscador que estoy creando en mi web. Es un buscador externo (para la web) pero al poner la palabra y darle buscar, me aparece el siguiente error:

Error de compilación de Microsoft VBScript error '800a03f6'

Se esperaba 'End'

/tres/buscar.asp, line 34

Quisiera sabe si alguien sabe como resolverlo, el codigo del buscador es el siguiente:

<%@ Language="vbscript"%>
<html>
<head>
<title>Resultados de la busqueda: <%=request.form("key")%></title>
</head>
<body>
<%
Set conexion = Server.CreateObject("ADODB.Connection")
basedatos = Server.MapPath(".../tres/buscar.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
If Request.form("key") = "" Then
response.write("<center>Debe ingresar una palabra antes de buscar.</center>")
Else
SearchSQL = "SELECT * FROM [Contenidos]" & " WHERE [Cuerpo] LIKE '%" & Request.form("key") & "%'"
Set registros=conexion.Execute(SearchSQL)

If registros.BOF And registros.EOF Then
response.write("<center>No se han encontraron resultados.</center>")
Else
If Not registros.BOF Then
While Not registros.EOF
Do While Not registros.EOF %>

<%=registros("Cuerpo")%>

<% registros.MoveNext
Loop
Wend
End If
End If

registros.Close
conexion.Close

%>
</body>
</html>

Gracias de antemano!

kalijunfan · #2 (**permalink**) 09/03/2004, 12:30

Estimado tork, esto te pasa porque te olvidaste de cerrar el primer if, además para qué estás usando un while y un do while al mismo tiempo? Te recomiendo que dejes tu código así:

<%@ Language="vbscript"%>
<html>
<head>
<title>Resultados de la busqueda: <%=request.form("key")%></title>
</head>
<body>
<%
Set conexion = Server.CreateObject("ADODB.Connection")
basedatos = Server.MapPath(".../tres/buscar.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
If Request.form("key") = "" Then
response.write("<center>Debe ingresar una palabra antes de buscar.</center>")
Else
SearchSQL = "SELECT * FROM Contenidos WHERE Cuerpo LIKE '%" & Request.form("key") & "%'"
Set registros=conexion.Execute(SearchSQL)

If registros.BOF And registros.EOF Then
response.write("<center>No se han encontraron resultados.</center>")
Else
If Not registros.BOF Then
While Not registros.EOF %>

<%=registros("Cuerpo")%>

<% registros.MoveNext
Wend
End If
End If

End if 'Este es el end if que te faltaba

registros.Close
conexion.Close

%>
</body>
</html>

Probalo, ahora debería de andar.

tork · #3 (**permalink**) 10/03/2004, 10:18

Muchisimas gracias kalijunfan ya con el codigo que me diste sirvio todo! Gracias!