problema con buscador

elergonomista · #1 (**permalink**) 29/03/2003, 13:19

hola ,

he cogido el buscador que esta en desarrolloweb.com ,cogi los ficheros htm y asp y junto a la base de datos la subi al servidor.

Hice una prueba de busqueda y me da el error justo al abrir el fichero buscar.asp, error 405.

Mi servidor permite el .asp

podriais echarme una mano?

muchas gracias

Gurrutello · #2 (**permalink**) 29/03/2003, 13:22

hola
puedes poner algo del codigo que tienes o la fila donde te da el error??
slaudos

elergonomista · #3 (**permalink**) 29/03/2003, 13:37

como os decia al cargar la pagina buscar.asp, aparece el error 405

este es el codigo:
<html>

<head>
<title>Buscar datos</title>
</head>

<body bgcolor="#FFFFCC">

Resultados obtenidos con <%=Request("Palabra") %>

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

gracias

Gurrutello · #4 (**permalink**) 30/03/2003, 07:34

que error exactamente te da??

elergonomista · #5 (**permalink**) 30/03/2003, 08:37

cuando abro la html para hacer una busqueda, y le pongo cualquier palabra,
entonces carga el fichero buscar.asp y ahi da el error 405

puedes verlo tu

entra en www.elergonomista.com/buscar.htm

(siento colocar mi sitio pero asi lo podras ver mejor incluso el codigo)

muchisimas gracias

Gurrutello · #6 (**permalink**) 30/03/2003, 09:11

parece que no tienes nada en la base de datos prueba metiendo algunos valores.
http://www.elergonomista.com/buscar.asp?palabra=a
y prueba
Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request.form("palabra")) & "%'"
a ver si asi funciona

incluye en la parte de arriba

if request.form("palabra")="" then
response.write"No insertaste ningun termino de busqueda"
end if
a ver si te funciona

Gurrutello · #7 (**permalink**) 30/03/2003, 09:15

de otra forma prueba
temp="SELECT * FROM Tabla1 WHERE nombre_del_campo LIKE '%" & palabra & "%'"
a ver si esto te funciona

elergonomista · #8 (**permalink**) 30/03/2003, 09:17

muchas gracias por todo

podrias explicarmelo de otra forma, me refiero donde tengo que meter los codigos que me indicas?

muchas gracias de nuevo

Gurrutello · #9 (**permalink**) 30/03/2003, 14:00

<html>

<head>
<title>Buscar datos</title>
</head>

<body bgcolor="#FFFFCC">

Resultados obtenidos con <%=Request("Palabra") %>

<%
if request.form("palabra")="" then
response.write"No insertaste ningun termino de busqueda"
end if
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request.form("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>