Sometimes you just need a list of your table fields.
<% For i = 0 to RS.Fields.Count - 1 Response.Write RS(i).Name Next %>