krill Remember 1947... | voici mon code:
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...? ---------------
http://www.ringsmsonline.fr.st --> Gagnez de l'argent en recevant des SMS (mini-messages) sur votre téléphone portable! Offre unique!!!
|