Por Ke Me Sale Error

[mariano_donati]

Fijate en esta parte:

Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

'abrimos la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("librovisitas.mdb"))
%> ' Cerras el código ASP

SQL = "SELECT * FROM formulario WHERE id = 'DECS'" ' Esto seguramente te aparece en la página

<% ' Abrís de nuevo para escribir código asp

TABLA.Open SQL, BDD ' hacemos la consulta 'Tratas de abrir un RS con una sentencia SQL inexistente, ya que no existe ninguna variable SQL, porque no la metiste dentro de <% %>

Lo otro es en esta parte:

While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "nombre:" & TABLA("nombre") & "<br>"
Response.Write "apellidos:" & TABLA("apellidos") & "<br>"
Response.Write "empresa:" & TABLA("empresa") & "<br>"
Response.Write "telefono:" & TABLA("telefono") & "<br>"
Response.Write "mail:" & TABLA("mail") & "<br>"
Response.Write "comentario:" & TABLA("comentario") & "<br>"
Wend

Cuando se ejecute esa parte del código, va a entrar en un bucle infinito, ya que no le estás diciendo al objeto RecordSet que se mueva un registro siguiente por cada iteración. Agrega esta linea entre el último Response.Write y el Wend: TABLA.MoveNext.
Después comenta haber que tal te fue.
Saludos!.