|
<%
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
%>
<%
If Session("UserRights") = 3 then
Response.Write("Nouveau joueur ")
NbCols = 9
else
NbCols = 7
end if
%>
<%
Set rsCatClub = Server.CreateObject("ADODB.Recordset")
sqlCatClub = "SELECT * FROM categorie WHERE desactive=0 AND joueurs=1 ORDER BY NomCat"
openrs rsCatClub, sqlCatClub
While not rsCatClub.eof
Set rsJoueurs = Server.CreateObject("ADODB.Recordset")
sqlJoueurs = "SELECT * FROM joueurs_club WHERE (idCat=" & rsCatClub("id") & " OR idCat2=" & rsCatClub("id") & ") AND desactive=0 order by Nom, Prenom Asc"
openrs rsJoueurs, sqlJoueurs
If rsJoueurs.eof then
rsCatClub.movenext
else
%>
"><%=rsCatClub("NomCat")%> |
| Nom |
Tel |
GSM |
Anniv. |
Mail 1 |
Mail 2 |
Licence |
<%
If Session("UserRights") = 3 then
Response.Write(" | ")
Response.Write("Last Mov | ")
end if
%>
<%
While not rsJoueurs.eof
IDJoueur = rsJoueurs("id")
If CLng(Session("UserID")) = CLng(IDJoueur) then
NomPrenom = "" & rsJoueurs("Nom") & " " & rsJoueurs("Prenom") & ""
else
NomPrenom = "" & rsJoueurs("Nom") & " " & rsJoueurs("Prenom")
end if
If Session("UserRights") = 3 then
NomPrenom = "" & rsJoueurs("Nom") & " " & rsJoueurs("Prenom") & ""
end if
If Isnull(rsJoueurs("DateAniv")) OR rsJoueurs("DateAniv") = "" then
DateAnniv = " "
'Anniv = 0
else
MoisAnniv = Month(rsJoueurs("DateAniv"))
JourAnniv = Day(rsJoueurs("DateAniv"))
AnneeAnniv = Year(rsJoueurs("DateAniv"))
AnneeAnniv = Right(AnneeAnniv,2)
DateAnniv = JourAnniv & "/" & MoisAnniv
'Anniv = 1
NextMonth = DateAdd("m",1,date())
NbJours = datediff("d",date(),NextMonth)
If datediff("d",date(),DateAnniv) < NbJours and datediff("d",date(),DateAnniv) > -1 then
DateAnniv = "" & DateAnniv & " "
end if
End if
If Isnull(rsJoueurs("Mail1")) OR rsJoueurs("Mail1") = "" then
Mail1 = " "
else
Mail1 = ""
end if
If Isnull(rsJoueurs("Mail2")) OR rsJoueurs("Mail2") = "" then
Mail2 = " "
else
Mail2 = ""
end if
If Isnull(rsJoueurs("LastMov")) OR rsJoueurs("LastMov") = "" then
LastMov = " "
else
LastMov = rsJoueurs("LastMov")
dayLastMov = day(LastMov)
monthLastMov = month(LastMov)
yearLastMov = year(LastMov)
LastMov = dayLastMov & "/" & monthLastMov & "/" & yearLastMov
end if
%>
| <%=NomPrenom%> |
<%=rsJoueurs("Tel")%> |
<%=rsJoueurs("GSM")%> |
<%=DateAnniv%> |
<%=Mail1%> |
<%=Mail2%> |
<%=rsJoueurs("Licence")%> |
<%
If Session("UserRights") = 3 then
Response.Write("Supprimer | ")
Response.Write("" & LastMov & " | ")
End if
%>
<%
rsJoueurs.movenext
Wend
rsJoueurs.close
set rsJoueurs = nothing
rsCatClub.movenext
end if
Wend
%>
Nouveau joueur
|
