Sometimes you just need a list of your table fields. Here's one way...

<% For i = 0 to RS.Fields.Count - 1 %>
<TH>
<%=RS(i).Name%>
</TH>
<% Next %>