Me da un error al buscar en BD

[BiRi]

Hola, haber si podeis ayudarme, he hecho un foro donde los post se guardan en una BD acces normal y corriente.

Ahora estoy haciendo un buscador, para que el usuario ponga una palabra y la busque dentro del foro y te enseñe el mensaje donde esta la palabra.

No tengo ni idea de como hacerlo, podeis indicarme??? please.

Por el momento he intentado algo:

Este es el codigo donde pongo la palabra a buscar:

-------------------------------------------
<form name="form1" method="post" action="resultados.asp">

<table width="51%" border="0" align="center" cellpadding=" ">
<tr>
<td width="50%"><div align="center"><b>Cadena a buscar:</b></div></td>
<td width="50%">
<input type="text" name="busqueda" maxlength="50">
</td>
</tr>

</table>
<div align="center"><br>
<input type="submit" name="Submit" value="Busqueda">
</div>
--------------------------------------------

Y esta es la pagina ASP que busca lo mandado por "busqueda"

-----------------------------------------

<!--#include file="bd.asp"-->

<%Busqueda=Split(Replace(Request.Form("bus queda"),"'","''"))
SQL="SELECT * FROM discusion WHERE INSTR(producto,'"&Busqueda(0)&"' )"
For i=1 to Ubound(Busqueda)
SQL=SQL&" OR INSTR(producto,'"&Busqueda(I)&"' )"
Next
SET RS=oConnectDiscusion.Execute(SQL)%>
--------------------------------------------

Y este es el error que me da el navegador cuando pongo una palabra y busco:

------------------------------------------
Información técnica (para personal de soporte técnico)

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'oConnectDiscusion'
/foro/resultados.asp, línea 8


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Página:
POST 27 bytes to /foro/resultados.asp

Datos de POST:
busqueda=ss&Submit=Busqueda
-------------------------------------------

Un Saludo Gracias

[urjose]

Cual es el contenido de

<!--#include file="bd.asp"-->

bd.asp?

Saludos

<center><a href="http://www.comunidadguru.com">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

[pumuky]

Pon el contenido de tu archivo include, pero de todos modos prueba esto:

Dim oConnectDiscusion

Set oConnectDiscusion = Server.CreateObject(&quot;ADODB.Connection&quot;)
conn.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;\tu_directorio\nombre_bd.mdb& quot;))

[urjose]

conn.Open

debes cambiarlo por

oConnectDiscussion.Open
saludos

<center><a href="http://www.comunidadguru.com">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

[BiRi]

BD:

-----------------------------------------
&lt;%
'Conexión a la base de datos
Dim cnn
dim rs
'dim SQL
DBName = &quot;driver={Microsoft Access Driver (*.mdb)};dbq=d:/ventacom/foro/foro.mdb&quot;
Set cnn = Server.CreateObject(&quot;ADODB.Connection&quot;)
cnn.Open DBName
Set rs = CreateObject(&quot;ADODB.Recordset&quot;)
rs.ActiveConnection = cnn%&gt;
-----------------------------------------

Ya os digo que el foro me va correctamente, solo falla el buscador