<% 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...?
c'est vrai que pour les enregistrement ta requette est plus rapide tu devrais simplement faire afficher tes neuf valeur pour verifier qu'il n'y est pas unh simbole qui soit mal passer exemple "&"
