<% Dim DB, TBL Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("FORM1.mdb")) TBL.Open "Tabla1" ,DB While NOT TBL.EOF Response.Write("Nombre = " & TBL("NOMBR") & "
") Response.Write("Apellido = " & TBL("APEP") & "
") Response.Write("Apellido = " & TBL("APEM") & "
") Response.Write("Pais = " & TBL("EMAIL") & "


") TBL.MoveNext Wend TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing %>