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

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

Resultats <%=NameCat%>

<% today = Date() dayToday = day(today) MonthToday = month(today) YearToday = year(today) SqlToday = YearToday & "-" & MonthToday & "-" & dayToday 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 Response.Write("

Pas de match joué

") else %> <% 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 %>
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
<% end if rsMatchs.close set rsMatchs = nothing %>