<% set oConnection = Server.CreateObject( "adodb.connection" ) with oConnection .ConnectionString = "Provider=VFPOLEDB;Data Source=" & _ "C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 7\SAMPLES\data\testdata.dbc;" .Open .Errors.Clear Set rs = .Execute( "select * from employee" ) end with ' Check results Response.Write("<TABLE border='1'><TR><TD>Emp Id</TD>" & _ "<TD>First Name</TD><TD>Last Name</TD><TD>Title</TD><TD>Born</TD><TD>Hired</TD></TR>" ) while not rs.eof Response.Write("<TR>") Response.Write("<TD>" & rs.Fields("emp_id").value & "</TD>") Response.Write("<TD>" & rs.Fields("first_name").value & "</TD>") Response.Write("<TD>" & rs.Fields("last_name").value & "</TD>") Response.Write("<TD>" & rs.Fields("title").value & "</TD>") Response.Write("<TD>" & rs.Fields("birth_date").value & "</TD>") Response.Write("<TD>" & rs.Fields("hire_date").value & "</TD>") Response.Write("</TR>") rs.MoveNext wend Response.Write("</TABLE><BR/>") oConnection.Close set oConnection = nothing %>Cetin