<% 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 %> |
<%
If Request.QueryString("idRD") <> "" then
idRD = Request.QueryString("idRD")
Set rsRallyeDel = Server.CreateObject("ADODB.Recordset")
sqlRallyeDel = "UPDATE " & TableEvent & " SET " & _
"NomJoueur='', " & _
"CommentaireJoueur='' " & _
"WHERE id=" & idRD
openrs rsRallyeDel, sqlRallyeDel
response.Redirect("event.asp?id=" & idEvent)
'Response.Write(sqlRallyeDel)
end if
If Request.QueryString("idRM") <> "" then
idRM = Request.QueryString("idRM")
NomJoueur = Request.QueryString("NomJoueur")
CommentaireJoueur = Request.QueryString("CommentaireJoueur")
Set rsRallyeUdp = Server.CreateObject("ADODB.Recordset")
sqlRallyeUpd = "UPDATE " & TableEvent & " SET " & _
"NomJoueur=" & ToSQL(NomJoueur, "Text") & ", " & _
"CommentaireJoueur=" & ToSQL(CommentaireJoueur, "Text") & " " & _
"WHERE id=" & idRM
openrs rsRallyeUdp, sqlRallyeUpd
response.Redirect("event.asp?id=" & idEvent)
end if
Set rsRallye = Server.CreateObject("ADODB.Recordset")
sqlRallye = "SELECT * FROM " & TableEvent & " WHERE id=" & idR
openrs rsRallye, sqlRallye
NomJoueur = ""
NomJoueur = rsRallye("NomJoueur")
CommentaireJoueur = ""
CommentaireJoueur = rsRallye("CommentaireJoueur")
If NomJoueur <> "" OR CommentaireJoueur <> "" then
ChkDelete = 1
end if
NomPoste = rsRallye("NomPoste")
DateDebutPoste = rsRallye("DateDebutPoste")
dayDateDebutPoste = day(DateDebutPoste)
monthDateDebutPoste = month(DateDebutPoste)
yearDateDebutPoste = year(DateDebutPoste)
nbDayDebutPoste = Weekday(DateDebutPoste,2)
JourDebutPoste = DLookUp("jours_semaine", "dayFr", "id=" & nbDayDebutPoste)
DateDebutPoste = dayDateDebutPoste & "/" & monthDateDebutPoste & "/" & yearDateDebutPoste
DateFinPoste = rsRallye("DateFinPoste")
dayDateFinPoste = day(DateFinPoste)
monthDateFinPoste = month(DateFinPoste)
yearDateFinPoste = year(DateFinPoste)
DateFinPoste = dayDateFinPoste & "/" & monthDateFinPoste & "/" & yearDateFinPoste
If DateDebutPoste = DateFinPoste then
DatePoste = "Le "& JourDebutPoste & " " & DateDebutPoste
else
DatePoste = "Du " & DateDebutPoste & " au " & DateFinPoste
end if
HourDebutPoste = Hour(rsRallye("HeureDebutPoste"))
If HourDebutPoste < 10 then
HourDebutPoste = "0" & HourDebutPoste
end if
HeureDebutPoste = HourDebutPoste & "h"
HourFinPoste = Hour(rsRallye("HeureFinPoste"))
If HourFinPoste < 10 then
HourFinPoste = "0" & HourFinPoste
end if
If HeureFinPoste = "00" then
HeureFinPoste = "24"
end if
HeureFinPoste = HourFinPoste & "h"
LieuPoste = ""
LieuPoste = rsRallye("LieuPoste")
DescriptionPoste = ""
DescriptionPoste = rsRallye("DescriptionPoste")
rsRallye.close
set rsRallye = nothing
%>
Participation <%=NameEvent%><%=DatePoste%><%=NomPoste%> - De <%=HeureDebutPoste%> à <%=HeureFinPoste%><% If LieuPoste <> "" then Response.Write("Lieu : " & LieuPoste & "") end if If DescriptionPoste <> "" then Response.Write("Description : " & DescriptionPoste & "") end if %> |