SQL = "SELECT * FROM MyTable"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("ConnectionString")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn
fCount = RS.Fields.Count - 1
Response.Write "<table border=1><tr bgcolor='#EEEEEE'>"
for i=0 to fCount
   Response.Write "<th>" & RS(i).name & "</th>"
next
Response.Write "</tr>"
While Not RS.EOF
   Response.Write "<tr>"
   for i=0 to fCount
     Response.Write "<td>" & RS(i).value & "</td>"
   next
   Response.Write "</tr>
RS.MoveNext
Wend
Response.Write "</table>"
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing