<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% idEntrainement = Request.QueryString("IDE") idCatRedirect = Request.QueryString("idCatRedirect") If idCatRedirect = 0 then backlink = "entrainementsallclub.asp" else backlink = "entrainementsclub.asp?idCat=" & idCatRedirect end if Today = Date() YearToday = Year(Today) FirstYear = DateAdd("yyyy",-1,Today) FirstYear = Year(FirstYear) LastYear = DateAdd("yyyy",1,Today) LastYear = Year(LastYear) Set rsEntrainement = Server.CreateObject("ADODB.Recordset") sqlEntrainement = "SELECT * FROM entrainements_club WHERE id=" & idEntrainement openrs rsEntrainement, sqlEntrainement While not rsEntrainement.eof DateEntr = rsEntrainement("DateEntr") YearEntr = Year(DateEntr) MonthEntr = Month(DateEntr) DayEntr = Day(DateEntr) LieuEntr = rsEntrainement("LieuEntr") HeureEntr = rsEntrainement("HeureEntr") HourEntr = Hour(HeureEntr) MinuteEntr = Minute(HeureEntr) FinEntr = rsEntrainement("FinEntr") HourFinEntr = Hour(FinEntr) MinuteFinEntr = Minute(FinEntr) Comment = rsEntrainement("Comment") idCat = rsEntrainement("idCat") rsEntrainement.movenext Wend rsEntrainement.close set rsEntrainement = nothing %>

Login

Matchs

Resultats

Entrainements

Joueurs

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

Externes

") Response.Write("

Entraineurs

") Response.Write("

Mailing

") End if %>

Evenements

Cotisations

Comité

Modifier entraînement - <%=DayEntr%>/<%=MonthEntr%>/<%=YearEntr%>

Date : / /
Lieu :
Début : h. min.
Fin : h. min.
Commentaire :