Esta claro, vale... pero no detecto el error

[CHuLoSoY]

<%Set Connae = Server.CreateObject("ADODB.Connection")
Connae.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

set rse=createobject("ADODB.Recordset")
rse.open "select * from tabla1",connae
if not rse.EOF then%>

Si estás en brinkster deberás quitar los ..\. Pon así:

& Server.MapPath("/canciones/db/encuestas.mdb"))