<html> <head><title>Listado de registros</title></head> <% Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.mode = 16 DataConn.provider="MSDASQL.1" DataConn.Open="Driver=Microsoft Visual FoxPro Driver;SourceType=DBC;SourceDB=\\Servidor\c\Progs\Casa_Svr\sinfo\Empr_000\sinfo.dbc;Exclusive=No; Null=No" set rs = server.CreateObject("ADODB.RecordSet") rs.Source="SELECT * FROM Actividad" rs.Open, DataConn do until rs.eof Response.write rs("cActividad") &"" rs.MoveNext Loop rs.Close