<%
Rs.Open "Select * From TableName",Conn,1,3
Response.Write "<table border=2><tr>" & Chr(13)
For i = 0 To Rs.Fields.Count - 1
    Response.Write "<td>" & Rs(i).Name & "</td>" & Chr(13)
Next
Response.Write "</tr>"
Do While Not Rs.Eof
    Response.Write "<tr>"
    For i = 0 To Rs.Fields.Count - 1
        Response.Write "<td>" & Rs(i).value & "</td>"
    
    Next
    Response.Write "</tr>"
    Rs.MoveNext
Loop
Response.Write "</table>"
CloseData
%>