Article ID: 193231
Article Last Modified on 3/16/2005
<%
'
'Where Recordset1 is the name of your Recordset DTC
'
Dim tempRS
Set tempRS = Recordset1.getRecordSource()
Response.Write "<table border=1 cellpadding=4>"
Response.Write "<tr>"
For I = 0 To tempRS.Fields.Count - 1
Response.Write "<td><b>" & tempRS(I).Name & "</b></td>"
Next
Response.Write "</tr>"
Do While Not tempRS.EOF
Response.Write "<tr>"
For I = 0 To tempRS.Fields.Count - 1
Response.Write "<td>" & tempRS(I) & "</td>"
Next
Response.Write "</tr>"
tempRS.MoveNext
Loop
Response.Write "</table>"
Set tempRS = Nothing
%>
Keywords: kbhowto kbsample kbctrl KB193231