BD:
-----------------------------------------
<%
'Conexión a la base de datos
Dim cnn
dim rs
'dim SQL
DBName = "driver={Microsoft Access Driver (*.mdb)};dbq=d:/ventacom/foro/foro.mdb"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open DBName
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn%>
-----------------------------------------
Ya os digo que el foro me va correctamente, solo falla el buscador
