09/03/2004, 12:21
|
 | | | Fecha de Ingreso: noviembre-2003 Ubicación: Veracruz
Mensajes: 153
Antigüedad: 21 años, 6 meses Puntos: 0 | |
| problemas con buscador
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><font face=arial, verdana size=4 color=#0a5168>Debe ingresar una palabra antes de buscar.</font></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><font face=verdana, helveltica size=4 color=#0a5168>No se han encontraron resultados.</font></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! |