<%
Option Explicit
Dim ConnectString
Dim RSEmps
Dim MyField
ConnectString = "DSN=EmpsDatabase;User Id=Admin;Password=;"
set RSEmps = Server.CreateObject("ADODB.Recordset")
RSEmps.CursorLocation = 3
RSEmps.Open "select * from tblEmps where EmpID < 11", ConnectString
Response.Write "<TABLE>"
Response.Write "<TR>"
For Each MyField in RSEmps.Fields
  Response.Write "<TD>" & MyField.Name & "</TD>"
Next
Response.Write "</TR>"
Do Until RSEmps.EOF
  Response.Write "<TR>"
  For Each MyField in RSEmps.Fields
    Response.Write "<TD>" & RSEmps(MyField.Name) & "</TD>"
  Next
  Response.Write "</TR>"
  RSEmps.MoveNext
Loop
Response.Write "</TABLE>"
%> 
