voici mon code :
<% If Request.QueryString("OK") = 1 Then %>
<%
Set Conn1 = Server.CreateObject("ADODB.Connection")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn1.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database") & "\calendrier.mdb;"
Conn2.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database") & "\classement.mdb;"
Set RS = Server.CreateObject("ADODB.RecordSet")
%>
<%
j = 1
While Request.QueryString("Visite_"&j) <> ""
%>
<%
RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
If Request.QueryString("Score_visite_"&j) > Request.QueryString("Score_visiteur_"&j) Then
RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
End If
If Request.QueryString("Score_visite_"&j) = Request.QueryString("Score_visiteur_"&j) Then
RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
End If
If Request.QueryString("Score_visite_"&j) < Request.QueryString("Score_visiteur_"&j) Then
RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
End If
If (Request.QueryString("Visite_"&j) = "R.E. Virton") Or (Request.QueryString("Visiteur_"&j) = "R.E. Virton") Then
RS.Open "UPDATE Calendrier SET Score_visite=" & Request.QueryString("Score_visite_"&j) & " WHERE Visite='" & Request.QueryString("Visite_"&j) & "' AND Visiteur='" & Request.QueryString("Visiteur_"&j) & "'", Conn1, adOpenStatic
RS.Open "UPDATE Calendrier SET Score_visiteur=" & Request.QueryString("Score_visiteur_"&j) & " WHERE Visiteur='" & Request.QueryString("Visiteur_"&j) & "' AND Visite='" & Request.QueryString("Visite_"&j) & "'", Conn1, adOpenStatic
End If
%>
<%= j %>
<%
j = j + 1
Wend
%>
<% Conn1.Close %>
<% Conn2.Close %>
<% RS.Close %>
<% End If %>
j'ai un formulaire avec 9 lignes. je le remplis completement, ce qui fait que la boucle doit avoir 9 iterations. or, a chaque fois, je n'ai que 5 iterations. si mon formulaire est vide, j'ai bien mes 9 iterations.
donc que dois-je faire? peut-etre est-ce mon code qui n'est pas bien optimise...?