<% If Session("UserRights") = 3 then Response.Write("") Response.Write("") Response.Write("") End if %>
|
|
|
<% If Session("UserRights") = 3 then Response.Write("") Response.Write("") Response.Write("") End if %> |
<%
IdJ = Request.Form("IDJ")
Nom = Request.Form("Nom")
Nom = UCase(Nom)
Prenom = Request.Form("Prenom")
Tel = Request.Form("Tel")
GSM = Request.Form("GSM")
JourAniv = Request.Form("JourAniv")
MoisAniv = Request.Form("MoisAniv")
AnneeAniv = Request.Form("AnneeAniv")
ChkDateAniv = Request.Form("ChkDateAniv")
If ChkDateAniv = "nodate" AND JourAniv=12 AND MoisAniv=12 AND AnneeAniv=1900 then
DateAnivSql = "0000-00-00"
else
DateAnivSql = AnneeAniv & "-" & MoisAniv & "-" & JourAniv
end if
Mail1 = Request.Form("Mail1")
Mail2 = Request.Form("Mail2")
Licence = Request.Form("Licence")
Sexe = Request.Form("Sexe")
CP = Request.Form("CP")
Ville = Request.Form("Ville")
Rue = Request.Form("Rue")
LieuNaiss = Request.Form("LieuNaiss")
JourMembreDepuis = Request.Form("JourMembreDepuis")
MoisMembreDepuis = Request.Form("MoisMembreDepuis")
AnneeMembreDepuis = Request.Form("AnneeMembreDepuis")
ChkMembreDepuis = Request.Form("ChkMembreDepuis")
If ChkMembreDepuis = "nodate" AND JourMembreDepuis=12 AND MoisMembreDepuis=12 AND AnneeMembreDepuis=1900 then
MembreDepuisSql = "0000-00-00"
else
MembreDepuisSql = AnneeMembreDepuis & "-" & MoisMembreDepuis & "-" & JourMembreDepuis
end if
idCat = Request.Form("idCat")
idCat2 = Request.Form("idCat2")
set rsUpdateJoueur = Server.CreateObject("ADODB.Recordset")
sqlUpdateJoueur = "UPDATE Joueurs_club SET " & _
"Nom=" & ToSQL(Nom, "Text") & ", " & _
"Prenom=" & ToSQL(Prenom, "Text") & ", " & _
"Tel=" & ToSQL(Tel, "Text") & ", " & _
"GSM=" & ToSQL(GSM, "Text") & ", " & _
"DateAniv='" & DateAnivSql & "', " & _
"Mail1=" & ToSQL(Mail1, "Text") & ", " & _
"Mail2=" & ToSQL(Mail2, "Text") & ", " & _
"Licence='" & Licence & "', " & _
"Sexe='" & Sexe & "', " & _
"CP='" & CP & "', " & _
"Ville=" & ToSQL(Ville, "Text") & ", " & _
"Rue=" & ToSQL(Rue, "Text") & ", " & _
"LieuNaiss=" & ToSQL(LieuNaiss, "Text") & ", " & _
"MembreDepuis='" & MembreDepuisSql & "', " & _
"idCat='" & idCat & "', " & _
"idCat2='" & idCat2 & "'"
If Request.Form("location") = "guest" then
LastMovDay = Day(Date())
LastMovMonth = Month(Date())
LastMovYear = Year(Date())
LastMovSql = LastMovYear & "-" & LastMovMonth & "-" & LastMovDay
sqlUpdateJoueur = sqlUpdateJoueur & ", LastMov='" & LastMovSql & "'"
End if
sqlUpdateJoueur = sqlUpdateJoueur & " WHERE id=" & IdJ
Response.Write(sqlUpdateJoueur)
openrs rsUpdateJoueur, sqlUpdateJoueur
%>
Succeed !!!<% ''''''''''''''''''''''''''''''''''''''''''' ' !!! Mise à jour affichage catégories !!!' ''''''''''''''''''''''''''''''''''''''''''' Set rsChkCat = Server.CreateObject("ADODB.Recordset") sqlChkCat = "SELECT * FROM Categorie WHERE joueurs=1" openrs rsChkCat, sqlChkCat While not rsChkCat.eof Set rsChkCatJoueur = Server.CreateObject("ADODB.Recordset") sqlChkCatJoueur = "SELECT * FROM Joueurs_club WHERE idCat=" & rsChkCat("id") & " OR idCat2=" & rsChkCat("id") & " AND desactive=0" openrs rsChkCatJoueur, sqlChkCatJoueur If rsChkCatJoueur.eof then set rsUpdateCat = Server.CreateObject("ADODB.Recordset") sqlUpdateCat = "UPDATE Categorie SET desactive=1 WHERE id=" & rsChkCat("id") openrs rsUpdateCat, sqlUpdateCat else set rsUpdateCat = Server.CreateObject("ADODB.Recordset") sqlUpdateCat = "UPDATE Categorie SET desactive=0 WHERE id=" & rsChkCat("id") openrs rsUpdateCat, sqlUpdateCat end if rsChkCatJoueur.close set rsChkCatJoueur = nothing rsChkCat.movenext Wend rsChkCat.close Set rsChkCat = nothing Response.Redirect("joueurscat.asp?idCat=" & idCat) %> |