<%
idEvent = Request.QueryString("id")
Set rsDefEvent = Server.CreateObject("ADODB.Recordset")
sqlDefEvent = "SELECT * FROM events_club WHERE id=" & idEvent
openrs rsDefEvent, sqlDefEvent
While not rsDefEvent.eof
NameEvent = rsDefEvent("NameEvent")
DateDebutEvent = rsDefEvent("DateDebutEvent")
DateFinEvent = rsDefEvent("DateFinEvent")
NbDays = DateDiff("d",DateDebutEvent,DateFinEvent)
NbDays = NbDays + 1
ResponsableEvent = rsDefEvent("ResponsableEvent")
TableEvent = rsDefEvent("TableEvent")
rsDefEvent.movenext
Wend
rsDefEvent.close
Set rsDefEvent = nothing
Response.Write("" & NameEvent & " ")
If Session("UserRights") = 3 then
Response.Write("")
NbCols = 10
else
NbCols = 8
end if
Response.Write("")
CurrentDate = DateDebutEvent
While not NbDays = 0
CurrDayNb = day(CurrentDate)
CurrDay = Weekday(CurrentDate,2)
CurrDayName = DLookUp("jours_semaine", "DayFr", "id=" & CurrDay)
CurrMonth = Month(CurrentDate)
CurrMonthName = DLookUp("mois_annee", "MonthFr", "id=" & CurrMonth)
CurrYear = year(CurrentDate)
CurrDateToSQL = CurrYear & "-" & CurrMonth & "-" & CurrDayNb
Response.Write("
" & CurrDayName & " " & CurrDayNb & " " & CurrMonthName & " " & CurrYear & " | ")
Response.Write("")
Response.Write("| Poste | ")
Response.Write("De | ")
Response.Write("A | ")
Response.Write("Participant | ")
Response.Write("Commentaire | ")
Response.Write("Lieu | ")
Response.Write("Description | ")
If Session("UserRights") = 3 then
Response.Write("Joueur | ")
Response.Write("Poste | ")
else
Response.Write(" | ")
end if
Response.Write(" ")
Set rsEvent = Server.CreateObject("ADODB.Recordset")
sqlEvent = "SELECT * FROM " & TableEvent & " WHERE DateDebutPoste = '" & CurrDateToSQL & "' ORDER BY DateDebutPoste, HeureDebutPoste, NomPoste"
openrs rsEvent, sqlEvent
While not rsEvent.eof
HeureDebutPoste = Hour(rsEvent("HeureDebutPoste"))
HeureFinPoste = Hour(rsEvent("HeureFinPoste"))
If HeureFinPoste = "0" then
HeureFinPoste = "24"
end if
Response.Write("")
Response.Write("| " & rsEvent("NomPoste") & " | ")
Response.Write("" & HeureDebutPoste & "h | ")
Response.Write("" & HeureFinPoste & "h | ")
Response.Write("" & rsEvent("NomJoueur") & " | ")
Response.Write("" & rsEvent("CommentaireJoueur") & " | ")
Response.Write("" & rsEvent("LieuPoste") & " | ")
Response.Write("" & rsEvent("DescriptionPoste") & " | ")
Response.Write("")
If rsEvent("NomJoueur") = "" OR IsNull(rsEvent("NomJoueur")) then
Response.Write("Inscription")
else
If Session("UserRights") = 3 then
Response.Write("Modifier")
else
Response.Write(" ")
end if
end if
Response.Write(" | ")
If Session("UserRights") = 3 then
Response.Write("Modifier | ")
Response.Write("Supprimer | ")
end if
Response.Write(" ")
rsEvent.movenext
Wend
rsEvent.close
set rsEvent = nothing
CurrentDate = DateAdd("d",1,CurrentDate)
NbDays = NbDays - 1
Wend
Response.Write(" ")
%>
|
