<% dbpath = Server.MapPath("data") set oConnection = Server.CreateObject( "adodb.connection" ) with oConnection .ConnectionString = "Provider=VFPOLEDB.1;data source=" & dbpath & "\testdata.dbc" .Open Set rs = .Execute( "select * from employee" ) end with Response.Write("<TABLE border='1'><TR><TD>Emp Id</TD><TD>First Name</TD><TD>Last Name</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