IAORANA
[font=Lucida Bonjour c'est encore moi
J'ai pu résoudre en partie le pb d'affichage de mes données dans les cases à cocher mais un autre est apparu
voilà le code, le problème c'est le message
ADODB.Field erreur '800a0bcd'
BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé ; l'opération demandée par l'application nécessite
un enregistrement actuel.
/iisadmin/website/essai/Inscription/inscaf.asp, ligne 173 ===> qui est la ligne du WHile, au départ acc.eof est à faux
je vais bien chercher les données que j'affiche, arrivé à la fin des données concernant PWD il passe à vrai en toute
logique il devrait sortir la condition n'étant plus rempli, mais il met ce message et ne m'affiche pas le bas de page
<%
Dim Bur, i, x
i=1
While ((NOT acc.eof) AND ((Cstr(acc.Fields.Item("PWD").value))=Request.Form("PWD")))%>
tant que non fin de fichier et non debut de ficheir faire et dès qu'une condition n'est plus respectée on doit
sortir de la boucle.
<tr>
<% Bur=(acc.Fields.Item("MATIERE").value)
x = i Mod 2
If Bur <> "" Then
if x = 0 then%>
<td> </td>
<td><%=(acc.Fields.Item("MATIERE").Value)%></td>
<td> </td>
<td>
<input type="checkbox" name="NIVEAU" value="" checked>
</td><%
end if
end if
Bur=""
i=i+1
acc.MoveNext()
%>acc.eof = <%=acc.eof%><br><%
%></tr><%
Wend
%>
Merci