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

Login

Matchs

Resultats

Entrainements

Joueurs

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

Externes

") Response.Write("

Entraineurs

") Response.Write("

Mailing

") End if %>

Evenements

Cotisations

Comité

<% 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 %>

Calendrier entrainements

<% Set rsEntrainement = Server.CreateObject("ADODB.Recordset") sqlEntrainement = "SELECT * FROM entrainements_club 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 idCat = rsEntrainement("idCat") NameCat = DLookUp("Categorie", "NomCat", "id=" & idCat) 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 Response.Write("") Response.Write("") If Session("UserRights") = 3 then Response.Write("") Response.Write("") End if Response.Write("") rsEntrainement.movenext Wend %>
Date Equipe Salle Heure Commentaire  
" & dateEntr & "" & NameCat & "" & rsEntrainement("LieuEntr") & "" & Entrainement & "" & rsEntrainement("Comment") & " ModifierSupprimer
<% End if rsEntrainement.close set rsEntrainement = nothing %>