<%@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 matchs=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 %>

<% today = Date() dayToday = day(today) MonthToday = month(today) YearToday = year(today) SqlToday = YearToday & "-" & MonthToday & "-" & dayToday Set rsCatClub = Server.CreateObject("ADODB.Recordset") sqlCatClub = "SELECT * FROM categorie WHERE desactive=0 AND matchs=1 ORDER BY NomCat" openrs rsCatClub, sqlCatClub NoMatch = 1 While not rsCatClub.eof idCat = rsCatClub("id") Set rsMatchs = Server.CreateObject("ADODB.Recordset") sqlMatchs = "SELECT * FROM Matchs WHERE DateM <= '" & SqlToday & "' AND idCat=" & idCat & " order by DateM Asc" openrs rsMatchs, sqlMatchs If rsMatchs.eof then rsCatClub.movenext else NoMatch = 0 If Session("UserRights") = 3 then NbCols = 5 else NbCols = 4 End if %> <% If Session("UserRights") = 3 then Response.Write("") End if %> <% While not rsMatchs.eof If Isnull(rsMatchs("ResulThRes")) OR rsMatchs("ResulThRes") = "" then Reserve = "???" else Reserve = rsMatchs("ResulThRes") & "-" & rsMatchs("ResulAdvRes") end if If Isnull(rsMatchs("ResulThPrem")) OR rsMatchs("ResulThPrem") = "" then Resultat = "???" else Resultat = rsMatchs("ResulThPrem") & "-" & rsMatchs("ResulAdvPrem") end if dateMatch = rsMatchs("DateM") dayMatch = day(dateMatch) monthMatch = Month(dateMatch) yearMatch = Year(dateMatch) nbDayMatch = Weekday(dateMatch,2) dateMatch = dayMatch & "/" & monthMatch & "/" & yearMatch %> <% If rsMatchs("Coupe") = 0 then %> <% else %> <% end if %> <% If Session("UserRights") = 3 then Response.Write("") End if %> <% rsMatchs.movenext Wend rsMatchs.close set rsMatchs = nothing rsCatClub.movenext end if wend rsCatClub.close set rsCatClub = nothing %>

<%=rsCatClub("NomCat")%>
Date Adversaire Réserve 1ère 
<%=dateMatch%> <%=rsMatchs("Adversaire")%><%=Reserve%> <% If rsMatchs("ResulThRes") > rsMatchs("ResulAdvRes") then Response.Write(" ") end if %>

Coupe

<%=Resultat%> <% If rsMatchs("ResulThPrem") > rsMatchs("ResulAdvPrem") then Response.Write(" ") end if %> Modifier
<% If NoMatch = 1 then Response.Write("

Pas de match joué

") End if %>