Adding Headers to Paging Results

[bberrios]

I would like to be able to add on specific headers, that are choosen prior to the search results being given; here is my paging results code AND FOLLOWING IS HOW I AM SPECIFYING HEADERS...andy suggestions on how to intergrate?:

Do While Not rs.EOF
If j > 20 Then
' -- Output a new table for this page
' -- Was there a previous page
if lngPage > 0 Then
' -- complete the previous page
WriteTableBottom
End if
lngPage = lngPage + 1
j = 0
' -----------------------------------------
' -- Call routine to write table top with page number
' -----------------------------------------
WriteTableTop lngPage
End if
j = j+1
' -- output the contents
Response.Write &quot;<TR>&quot;
For a = 0 to rs.Fields.Count - 1

Response.Write &quot;<TD><FONT FACE=&quot;&quot;ARIAL&quot;&quot; SIZE=&quot;&quot;1&quot;&quot;>&quot; & rs.Fields(a) & &quot;</FONT></TD>&quot;


Next
Response.write &quot;</TR>&quot;
' -- move to the next record
rs.MoveNext
Loop
if lngPage > 0 Then
' -- complete the previous page
WriteTableBottom
End if

-------------------HEADERS OUTPUT----------------------
f cbx_visn=&quot;on&quot; then
Response.Write(&quot;<th class='report' align='center'>VISN</th>&quot
end if

If cbx_facility=&quot;on&quot; Then
Response.Write(&quot;<th class='report'>Facility</th>&quot
End If

If cbx_agency=&quot;on&quot; Then
Response.Write(&quot;<th class='report'>Agency</th>&quot
End If


bb