Volley-Ball Club Tihange

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy

<% Set rsListCatClub = Server.CreateObject("ADODB.Recordset") sqlListCatClub = "SELECT * FROM categorie WHERE desactive=0 AND joueurs=1 ORDER BY NomCat" openrs rsListCatClub, sqlListCatClub While not rsListCatClub.eof Response.Write("" & rsListCatClub("NomCat") & "") rsListCatClub.movenext If not rsListCatClub.eof then Response.Write(" - ") end if Wend rsListCatClub.close set rsListCatClub = nothing %>

<% idCat = Request.QueryString("idCat") NameCat = DLookUp("Categorie", "NomCat", "id=" & idCat) %>

Calendrier entrainements <%=NameCat%>

<% If Session("UserRights") = 3 then Response.Write("

Nouvel entrainement

") End if Set rsEntrainement = Server.CreateObject("ADODB.Recordset") sqlEntrainement = "SELECT * FROM entrainements_club WHERE idCat=" & idCat & " ORDER BY DateEntr" Openrs rsEntrainement, sqlEntrainement If rsEntrainement.eof then Response.Write("

Pas d'entrainement encodé

") else %> <% If Session("UserRights") = 3 then Response.Write("") Response.Write("") End if %> <% While not rsEntrainement.eof If Datediff("d",Date(),rsEntrainement("DateEntr")) < 0 then chkdate = 0 else chkdate = chkdate + 1 end if dateEntr = rsEntrainement("DateEntr") dayEntr = day(dateEntr) monthEntr = Month(dateEntr) yearEntr = Year(dateEntr) nbDayEntr = Weekday(dateEntr,2) ShortDayEntrFr = DLookUp("jours_semaine", "shortDayFr", "id=" & nbDayEntr) dateEntr = ShortDayEntrFr & " " & dayEntr & "/" & monthEntr & "/" & yearEntr HeureEntr = Hour(rsEntrainement("HeureEntr")) If HeureEntr < 10 then HeureEntr = "0" & HeureEntr end if MinuteEntr = Minute(rsEntrainement("HeureEntr")) If MinuteEntr < 10 then MinuteEntr = "0" & MinuteEntr end if DebutEntr = HeureEntr & "h" & MinuteEntr HeureFinEntr = Hour(rsEntrainement("FinEntr")) If HeureFinEntr < 10 then HeureFinEntr = "0" & HeureFinEntr end if MinuteFinEntr = Minute(rsEntrainement("FinEntr")) If MinuteFinEntr < 10 then MinuteFinEntr = "0" & MinuteFinEntr end if FinEntr = HeureFinEntr & "h" & MinuteFinEntr Entrainement = DebutEntr & " - " & FinEntr If chkdate = 1 then Response.Write("") else Response.Write("") end if If Session("UserRights") = 3 then Response.Write("") Response.Write("") End if Response.Write("") rsEntrainement.movenext Wend %>

Date	Salle	Heure	Commentaire
" & dateEntr & "	" & rsEntrainement("LieuEntr") & "	" & Entrainement & "	" & rsEntrainement("Comment") & "
" & dateEntr & "	" & rsEntrainement("LieuEntr") & "	" & Entrainement & "	" & rsEntrainement("Comment") & "	Modifier	Supprimer

<% End if rsEntrainement.close set rsEntrainement = nothing If Session("UserRights") = 3 then Response.Write("

Nouvel entrainement

") End if %>