[ASP] Updates multiples!!!

Updates multiples!!! [ASP] - Programmation

Marsh Posté le 31-07-2002 à 16:18:22    

voici mon code:  
 

Code :
  1. <% If Request.QueryString("OK" ) = 1 Then %>
  2. <%
  3. Set Conn1 = Server.CreateObject("ADODB.Connection" )
  4. Set Conn2 = Server.CreateObject("ADODB.Connection" )
  5. Conn1.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database" ) & "\calendrier.mdb;"
  6. Conn2.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database" ) & "\classement.mdb;"
  7. Set RS = Server.CreateObject("ADODB.RecordSet" )
  8. %>
  9. <%
  10. j = 1
  11. While Request.QueryString("Visite_"&j) <> ""
  12. %>
  13. <%
  14. RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  15. RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  16. RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  17. RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  18. If Request.QueryString("Score_visite_"&j) > Request.QueryString("Score_visiteur_"&j) Then
  19. RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  20. RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  21. End If
  22. If Request.QueryString("Score_visite_"&j) = Request.QueryString("Score_visiteur_"&j) Then
  23. RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  24. RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  25. End If
  26. If Request.QueryString("Score_visite_"&j) < Request.QueryString("Score_visiteur_"&j) Then
  27. RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  28. RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  29. End If
  30. If (Request.QueryString("Visite_"&j) = "R.E. Virton" ) Or (Request.QueryString("Visiteur_"&j) = "R.E. Virton" ) Then
  31. 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
  32. 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
  33. End If
  34. %>
  35. <%= j %>
  36. <%
  37. j = j + 1
  38. Wend
  39. %>
  40. <% Conn1.Close %>
  41. <% Conn2.Close %>
  42. <% RS.Close %>
  43. <% 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!!!
Reply

Marsh Posté le 31-07-2002 à 16:18:22   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed