<%
''''''''''''''''''''''''''''''''''''''''''''
' !!! Ajouter gestion des dates de réunion '
''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
' Ajouter gestion des membre '
''''''''''''''''''''''''''''''
%>
Comité VCTH |
| Nom |
Tel |
GSM |
Anniv. |
Mail 1 |
Mail 2 |
Statut |
<%
Set rsJoueurs = Server.CreateObject("ADODB.Recordset")
sqlJoueurs = "SELECT * FROM joueurs_club WHERE Comite=1 order by Nom, Prenom Asc"
openrs rsJoueurs, sqlJoueurs
While not rsJoueurs.eof
Tel1 = rsJoueurs("Tel")
Tel2 = rsJoueurs("GSM")
If Isnull(rsJoueurs("DateAniv")) OR rsJoueurs("DateAniv") = "" then
DateAnniv = " "
Anniv = 0
else
MoisAnniv = Month(rsJoueurs("DateAniv"))
JourAnniv = Day(rsJoueurs("DateAniv"))
DateAnniv = JourAnniv & "/" & MoisAnniv
Anniv = 1
End if
Mail1 = ""
Mail2 = ""
ComiteDesc = rsJoueurs("ComiteDesc")
%>
| <%=rsJoueurs("Nom")%> <%=rsJoueurs("Prenom")%> |
<%=Tel1%> |
<%=Tel2%> |
<%
If Anniv = 1 then
NextMonth = DateAdd("m",1,date())
NbJours = datediff("d",date(),NextMonth)
If datediff("d",date(),DateAnniv) < NbJours and datediff("d",date(),DateAnniv) > -1 then
Response.Write("" & DateAnniv & "" & _
" ")
else
Response.Write(DateAnniv)
end if
Else
Response.Write(DateAnniv)
End if
%>
|
<%=Mail1%> |
<%=Mail2%> |
<%=ComiteDesc%> |
<%
rsJoueurs.movenext
Wend
rsJoueurs.close
set rsJoueurs = nothing
%>
Responsables d'équipe |
| Nom |
Tel |
GSM |
Anniv. |
Mail 1 |
Mail 2 |
Equipe |
<%
Set rsJoueurs = Server.CreateObject("ADODB.Recordset")
sqlJoueurs = "SELECT * FROM joueurs_club WHERE ChefEquipe=1 order by idCatChefEquipe, Nom, Prenom Asc"
openrs rsJoueurs, sqlJoueurs
While not rsJoueurs.eof
Tel1 = rsJoueurs("Tel")
Tel2 = rsJoueurs("GSM")
If Isnull(rsJoueurs("DateAniv")) OR rsJoueurs("DateAniv") = "" then
DateAnniv = " "
Anniv = 0
else
MoisAnniv = Month(rsJoueurs("DateAniv"))
JourAnniv = Day(rsJoueurs("DateAniv"))
DateAnniv = JourAnniv & "/" & MoisAnniv
Anniv = 1
End if
Mail1 = ""
Mail2 = ""
CatCE = DLookUp("Categorie", "NomCat", "id=" & rsJoueurs("idCatChefEquipe"))
%>
| <%=rsJoueurs("Nom")%> <%=rsJoueurs("Prenom")%> |
<%=Tel1%> |
<%=Tel2%> |
<%
If Anniv = 1 then
NextMonth = DateAdd("m",1,date())
NbJours = datediff("d",date(),NextMonth)
If datediff("d",date(),DateAnniv) < NbJours and datediff("d",date(),DateAnniv) > -1 then
Response.Write("" & DateAnniv & "" & _
"")
else
Response.Write(DateAnniv)
end if
Else
Response.Write(DateAnniv)
End if
%>
|
<%=Mail1%> |
<%=Mail2%> |
<%=CatCE%> |
<%
rsJoueurs.movenext
Wend
rsJoueurs.close
set rsJoueurs = nothing
%>
|
