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 "" for i=0 to fCount Response.Write "" next Response.Write "" While Not RS.EOF Response.Write "" for i=0 to fCount Response.Write "" next Response.Write " RS.MoveNext Wend Response.Write "
" & RS(i).name & "
" & RS(i).value & "
" RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing