HOLA BUENAS
MI DUDA ES KE ESTE CODIGO LO EDITE DE UN TUTURIAL Y ES EL SIGUIENTE
<%
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"))
%>
SQL = "SELECT * FROM formulario WHERE id = 'DECS'"
<%
TABLA.Open SQL, 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>"
Wend
'cerramos todo y liberamos los objetos
TABLA.Close
BDD.Close
Set BDD = Nothing
Set TABLA = Nothing
%>
BUENO YA ESTA EDITADO PARA KE MUESTRE LO QUE YO DESEO PERO ME SALE EL SIGUIENTE ERROR EN ESTA LINEA
TABLA.Open SQL, BDD ' hacemos la consulta
PORKE???
ME AYUDAN PORFAVOR ..GRACIAS
