<%
idMatch = CInt(Request.QueryString("IDM"))
idCat = CInt(Request.QueryString("idCat"))
IDJoueur = CInt(Request.QueryString("IDJ"))
IDJ = Request.QueryString("IDJ")
RepMatch = CInt(Request.QueryString("RepMatch"))
Set rsMatch = Server.CreateObject("ADODB.Recordset")
sqlMatch = "SELECT * FROM Matchs WHERE id=" & idMatch
openrs rsMatch, sqlMatch
While not rsMatch.eof
deplacement = CInt(rsMatch("Depl"))
Resto = CInt(rsMatch("Resto"))
Coupe = CInt(rsMatch("Coupe"))
rsMatch.movenext
Wend
rsMatch.close
set rsMatch = nothing
If deplacement = 1 then
RepRdv = CInt(Request.QueryString("RepRdv"))
end if
If Resto = 1 then
RepResto = CInt(Request.QueryString("RepResto"))
RepRestoNb = CInt(Request.QueryString("RepRestoNb"))
end if
If Coupe = 0 then
RepReserve = CInt(Request.QueryString("RepReserve"))
end if
RepCommentaire = Request.QueryString("RepCommentaire")
Set rsUpdtRelMJ = Server.CreateObject("ADODB.Recordset")
sqlUpdtRelMJ = "UPDATE relmatchjoueur_club SET Matchs=" & RepMatch & ", "
If Coupe = 0 then
sqlUpdtRelMJ = sqlUpdtRelMJ & "Reserves=" & RepReserve & ", "
end if
If deplacement = 1 then
sqlUpdtRelMJ = sqlUpdtRelMJ & "Rdv=" & RepRdv & ", "
end if
If Resto = 1 then
sqlUpdtRelMJ = sqlUpdtRelMJ & "Resto=" & RepResto & ", RestoNb=" & RepRestoNb & ", "
end if
sqlUpdtRelMJ = sqlUpdtRelMJ & "Commentaire=" & ToSQL(RepCommentaire, "Text") & " WHERE IdM=" & idMatch & " AND IdJ=" & IDJoueur
openrs rsUpdtRelMJ, sqlUpdtRelMJ
Response.Write("
Succeed !!!")
If Request.QueryString("location") = "guest" then
Set rsTraceJ = Server.CreateObject("ADODB.Recordset")
LastMovDay = Day(Date())
LastMovMonth = Month(Date())
LastMovYear = Year(Date())
LastMovSql = LastMovYear & "-" & LastMovMonth & "-" & LastMovDay
sqlTraceJ = "UPDATE joueurs_club SET LastMov='" & LastMovSql & "' WHERE Id=" & IDJ
openrs rsTraceJ, sqlTraceJ
Response.Redirect("agendaclub.asp?idMatch=" & idMatch & "&idCat=" & idCat)
else
Response.Redirect("agendaclubadmin.asp?idMatch=" & idMatch & "&idCat=" & idCat)
end if
%>
|
