Problema al hacer un buscador con asp

emilio21 · #1 (**permalink**) 07/02/2005, 13:30

Hola Amigos Programadores.
Ante todo gracias.

Mi problema es el siguiente: yo estoy haciendo un buscador en estos instantes y me estoy guiando por el articulo de la pagina de el guruprogramador.com.ar. El articulo es ¿como hacer un buscador en tu web?, bueno cuando introduzco la palabra clave a buscar y la pagina buscar.asp (esta es la pag que procesa la informacion) me da el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/emiliomedina21/buscador/buscar.asp, line 34

Cuya line 34 contiene lo siguiente:
cnn.Open str

donde
cnn = CreateObject("ADODB.Connection")
str = "Data Source=Pafware"

Bueno este es el problema que presento si lo quieren ver pueden visitar a http://free.7host06.com/emiliomedina...or/buscar.html

Necesito la solucion los mas rapido posible por favor.

Ayudenme.

Gracias.

akela · #2 (**permalink**) 07/02/2005, 14:27

podrías poner el código de la página para ver que està mal?

emilio21 · #3 (**permalink**) 07/02/2005, 16:29

El codigo completo es el siguiente:

<html>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim buscar
buscar = Request.Form("palabra")
%>

<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">Resultados de la Busqueda</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT nombre, des, pal, url FROM Buscador WHERE pal LIKE '%"&buscador&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = str
rs.Open SQL
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("url") & "'>" & rs("nombre") & " >> <br>" & "</a>" & rs("des")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscador = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str = "Data Source=Pafware"
cnn.Open str
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="Buscar.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form></center>
</body>
</html>

GRACIAS. SI PUEDES RESPONDEME LO MAS RAPIDO POSIBLE... OK

anaisabel · #4 (**permalink**) 08/02/2005, 03:05

Utilizas una Base de Datos? parece como que no la encuentra,

akela · #5 (**permalink**) 08/02/2005, 08:50

Que base de datos usas?

En donde esta?

emilio21 · #6 (**permalink**) 08/02/2005, 13:28

hola..

si utilizo base de datos access, se llama buscador.mdb

akela · #7 (**permalink**) 08/02/2005, 14:18

Ok, con eso ya se puede ayudar algo:

debes hacer así para conectar tu base de datos:

busca en tu pagina las siguientes lineas :

Código:

Set cnn = CreateObject("ADODB.Connection")
str = "Data Source=Pafware"

y cambia lo siguiente:

Set cnn = CreateObject("ADODB.Connection")
str="DRIVER={Microsoft Access Driver (*.mdb)}; "
str=str & "DBQ=" & Server.MapPath("buscador.mdb")
cnn.Open str

ahí le estas diciendo que te conecte con tu base de datos, suponiendo que ésta se encuentre en el mismo diirectorio que la página.

emilio21 · #8 (**permalink**) 08/02/2005, 14:36

GRACIAS!!!!!!!!!!!!!!!!!11

modifique lo que me dijiste pero me presenta otro error en la line 20, el error es el siguiente:

Resultados de la Busqueda

Resultados de la busqueda:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/emiliomedina21/buscador/buscar.asp, line 20

quisiera me me ayudaras lo mas rapido posible y dusculpa las molestias causadas.

GRACIAS. RECUERDA QUE SABIO NO ES EL QUE SABE SINO EL QUE QUIERE APRENDER....

rarevalo · #9 (**permalink**) 08/02/2005, 14:49

La variable BUSCADOR en la linea:

SELECT nombre, des, pal, url FROM Buscador WHERE pal LIKE '%"&buscador&"%';"

No deberia ser BUSCAR, como la variable que estas tomando arriba, en la linea:
buscar = Request.Form("palabra")

osea:
SELECT nombre, des, pal, url FROM Buscador WHERE pal LIKE '%"&buscar&"%';"