nasedo
Messages postés2Date d'inscriptionmercredi 31 juillet 2002StatutMembreDernière intervention31 juillet 2002
-
31 juil. 2002 à 16:02
cs_Mcjo
Messages postés403Date d'inscriptiondimanche 12 août 2001StatutMembreDernière intervention 3 septembre 2012
-
28 sept. 2002 à 00:52
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...?
cs_Mcjo
Messages postés403Date d'inscriptiondimanche 12 août 2001StatutMembreDernière intervention 3 septembre 20122 28 sept. 2002 à 00:52
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 "&"