Por Ke Me Sale Error

[mrjhon]

HOLA AMIGOS BUENO LA VERDAD ES KE ENCONTRE OTRA FORMA DE HASERLO AUNKE CASI CON LAS MMISMAS CORDENADAS.

MIREN AHY LES DEJO EL CODIGO PARA KE LO MIREN Y ME DIGAN SI ALGUN CODIGO SOBRE....

GRACIAS POR LA AYUDA Y POR LA PAZ CIENCIA JEJE ...

<%
Dim BDD ' variable que se encargara de la base de datos
Dim TABLA ' variable que se encarga de la tabla

'creamos los objetos que manejan la base de datos y la tabla
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"))
%>



<%

TABLA.Open "formulario", BDD ' hacemos la consulta


'ahora recorremos toda la tabla y mostramoslos datos
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>"
TABLA.MoveNext
Wend

'cerramos todo y liberamos los objetos
TABLA.Close
BDD.Close

Set BDD = Nothing
Set TABLA = Nothing
%>