<%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Bibli","etd","etd"%>

Auteurs dont le nom commence par C

Le code suivant :

<ul>
<% Req = "Select Code_Auteur, Nom, Prénom, Nationalité from Auteur where Nom like 'C%'"
      Set R = Conn.execute(Req)
      Do while not R.eof %>
           <li> <a href="biblio.asp?code=<%=R("Code_Auteur")%>"> <%=R("Nom")%></a>&nbsp;<%=R("Prénom")&" "&R("Nationalité")%></li>
     <%R.MoveNext
     Loop%>

produit la liste ci dessous :

Le code

<select name="code">
<% Req = "Select Code_Auteur, Nom, Prénom, Nationalité from Auteur where Nom like 'C%'"
      Set R = Conn.execute(Req)
      Do while not R.eof %>
     <option value="<%=R("Code_Auteur")%>"><%=R("Nom")&" "&R("Prénom")&" "&R("Nationalité")%></option>
     <%R.MoveNext
     Loop%>
</select>

produit la liste déroulante qui suit, que l'on peut insérer dans un formulaire :