Bonjour,
Petit soucis avec ce Do.. While :
Code :
- ' Déclaration des variables
- Dim requete
- Dim connectl
- Dim R_Dossiers
- ' Création des connexions
- set connectl=Server.CreateObject("ADODB.Connection" )
- Set R_Dossiers = Server.CreateObject("ADODB.Recordset" )
- Connectl.Open "BaseL", "web", ""
- requete = "SELECT NumDossier, Statut, StatutExterne FROM na na na mais ça fonctionne..."
- R_Dossiers.Open requete, Connectl
- %>
- <table width="300" border="1" align="center" cellpadding="3" cellspacing="1">
- <tr>
- <th>Num.</th>
- <th>Statut</th>
- <th>Avancement</th>
- <th>EOF</th>
- </tr>
- <%
- do while not R_Dossiers.EOF%>
- <tr>
- <td><%=R_Dossiers("NumDossier" )%></td>
- <td><%=R_Dossiers("Statut" )%></td>
- <td><%=R_Dossiers("StatutExterne" )%></td>
- <td><%=R_Dossiers.EOF%></td>
- </tr><%
- R_Dossiers.MoveNext
- loop
- %></table><%
- R_Dossiers.Close
|
La requête est censée récupérer 4 lignes, mais seule une ligne apparaît.
Pourtant, EOF est bien à False...