Requete ASP

Affiche tous les recs d'une bdd (tout est passé en variables : nom de champ et valeur)

<%

  
   ' ON CREE LE LIEN AVEC LA BASE
  set conntemp=server.createobject("adodb.connection")
  conntemp.open "dsnvehicule"
  ' requête SQL à executer
  set rstemp=conntemp.execute("select * from vehicule")
  howmanyfields=rstemp.fields.count -1
  %>
  <table border=1>
  <tr>
  <% ' on affiche
  for i=0 to howmanyfields %>
  <td><b><%=rstemp(i).name %></B></TD>
  <% next %>
  </tr>
  <% ' on affiche tous les enregistrements de la base
  do while not rstemp.eof %>
  <tr>
  <% for i = 0 to howmanyfields%>
  <td valign=top><% = rstemp.fields(i).value %></td>
  <% next %>
  </tr>
  <% rstemp.movenext
  loop
  conntemp.close%>
  </table>
  </body></html>