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 "
" & RS(i).name & " | " next Response.Write "
---|
" & RS(i).value & " | " next Response.Write "