AFFICHE-TOUT

'''''''''''
' SETTING '
'''''''''''
'Définir la Connection
'Définir le RecordSet rs
'Exécuter le RecordSet rs

J = 0
'Trouver le fields.Count
Do While err.number = 0
  On Error Resume Next
  J = J + 1
  Temp = rs.fields(J).Name
Loop
J = J - 1

'''''''''''
'AFFICHAGE'
'''''''''''

<table border="0"  width="100%">
<tr><!-- Row 1-->
 <%
   if not rs.EOF then
     For i = 0 to j
       Response.write "<td><font face=""Arial"" Size=""3"" color=""#000000""><b>" & rs.fields(i).Name & "</b></font></td>"
     Next
   end if%>
</tr>
  <%rs.MoveFirst
    if rs.EOF then
      Response.write "<tr>"
      Response.write "<td><font face=""Arial"" Size=""3"" color=""#000000""><b>No error found</b></font></td>"
      Response.write "</tr>"
    else
      Do while not rs.EOF
        Response.write "<tr>"
	For i = 0 to j
          Response.write "<td>" & rs.fields(i) & "</td>"
        Next
	Response.write "</tr>"
	rs.MoveNext
      Loop
    end if%>
</table>