Código:
gracias <% MyConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Telefonos.mdb") Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From Telefonos" Rs.Open Sql, MyConn Do While Not Rs.Eof Response.Write(Rs("Nombre")) Response.Write(Rs("Telefono")) Response.Write("<br>") Rs.MoveNext Loop Rs.Close Set Rs = Nothing %>