|
<%
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
%>
Matchs de toutes les équipes
| Date |
Equipe |
Adversaire |
RDV |
Reserve |
1ere |
Lieu Match |
Coatch |
<%
If Session("UserRights") = 3 then
Response.Write("Modifier | ")
Response.Write("Supprimer | ")
end if
%>
<%
Set rsMatchs = Server.CreateObject("ADODB.Recordset")
sqlMatchs = "SELECT * FROM matchs ORDER BY DateM, Premiere, idCat"
openrs rsMatchs, sqlMatchs
While not rsMatchs.eof
idMatch = rsMatchs("id")
dateMatch = rsMatchs("DateM")
dayMatch = day(dateMatch)
monthMatch = Month(dateMatch)
yearMatch = Year(dateMatch)
nbDayMatch = Weekday(dateMatch,2)
ShortDayMatchFr = DLookUp("jours_semaine", "shortDayFr", "id=" & nbDayMatch)
dateMatch = ShortDayMatchFr & " " & dayMatch & "/" & monthMatch & "/" & yearMatch
idCat = rsMatchs("idCat")
nomCat = DLookUp("categorie", "NomCat", "id=" & idCat)
ColorCat = DLookUp("categorie", "bgcolor", "id=" & idCat)
HeureRDV = Hour(rsMatchs("RDV"))
If HeureRDV < 10 then
HeureRDV = "0" & HeureRDV
end if
MinuteRDV = Minute(rsMatchs("RDV"))
If MinuteRDV < 10 then
MinuteRDV = "0" & MinuteRDV
end if
RDV = HeureRDV & "h" & MinuteRDV
If rsMatchs("Coupe") = 1 then
Reserve = "Coupe "
else
HeureReserve = Hour(rsMatchs("Reserve"))
If HeureReserve < 10 then
HeureReserve = "0" & HeureReserve
end if
MinuteReserve = Minute(rsMatchs("Reserve"))
If MinuteReserve < 10 then
MinuteReserve = "0" & MinuteReserve
end if
Reserve = HeureReserve & "h" & MinuteReserve
end if
HeurePremiere = Hour(rsMatchs("Premiere"))
If HeurePremiere < 10 then
HeurePremiere = "0" & HeurePremiere
end if
MinutePremiere = Minute(rsMatchs("Premiere"))
If MinutePremiere < 10 then
MinutePremiere = "0" & MinutePremiere
end if
Premiere = HeurePremiere & "h" & MinutePremiere
Coatch = rsMatchs("Coatch")
If Coatch = "" OR IsNull(Coatch) then
Coatch = " "
end if
%>
| <%=dateMatch%> |
<%=nomCat%> |
<%=rsMatchs("Adversaire")%> |
<%=RDV%> |
<%=Reserve%> |
<%=Premiere%> |
<%=rsMatchs("Lieu")%> |
<%=Coatch%> |
<%
If Session("UserRights") = 3 then
Response.Write("Modifier | ")
Response.Write("Supprimer | ")
end if
%>
<%
rsMatchs.movenext
Wend
rsMatchs.close
set rsMatchs = nothing
%>
|
