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
%>

