<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% Today = Date() YearToday = Year(Today) IdJoueur = Request.QueryString("ID") Set rsJoueurs = Server.CreateObject("ADODB.Recordset") sqlJoueurs = "SELECT * FROM Joueurs_club WHERE id=" & IdJoueur openrs rsJoueurs, sqlJoueurs Nom = rsJoueurs("Nom") Prenom = rsJoueurs("Prenom") Tel = rsJoueurs("Tel") GSM = rsJoueurs("GSM") DateAniv = rsJoueurs("DateAniv") JourAniv = Day (DateAniv) MoisAniv = Month(DateAniv) AnneeAniv = Year(DateAniv) ChkDateAniv = "" If isnull(DateAniv) or DateAniv = "" then JourAniv = 12 MoisAniv = 12 AnneeAniv = 1900 ChkDateAniv = "nodate" End if Mail1 = rsJoueurs("Mail1") Mail2 = rsJoueurs("Mail2") Licence = rsJoueurs("Licence") Sexe = rsJoueurs("Sexe") CP = rsJoueurs("CP") Ville = rsJoueurs("Ville") Rue = rsJoueurs("Rue") LieuNaiss = rsJoueurs("LieuNaiss") MembreDepuis = rsJoueurs("MembreDepuis") JourMembreDepuis = Day (MembreDepuis) MoisMembreDepuis = Month(MembreDepuis) AnneeMembreDepuis = Year(MembreDepuis) ChkMembreDepuis = "" If isnull(MembreDepuis) or MembreDepuis = "" then JourMembreDepuis = 12 MoisMembreDepuis = 12 AnneeMembreDepuis = 1900 ChkMembreDepuis = "nodate" End if idCat = rsJoueurs("idCat") If IsNull(rsJoueurs("idCat2")) then idCat2 = 0 else idCat2 = rsJoueurs("idCat2") end if rsJoueurs.close set rsJoueurs = nothing idCatRedirect = Request.QueryString("idCat") If idCatRedirect = 0 then pageredirect = "joueursclub.asp" else pageredirect = "joueurscat.asp?idCat=" & idCatRedirect end if %>

<%=Nom%> <%=Prenom%>

Nom :
Prénom :
Tel. :
GSM :
Anniversaire :	/ /
Mail 1 :
Mail 2 :
Licence :
Sexe :
Code Postal :
Ville :
Rue :
Lieu Naissance :
Membre Depuis :	/ /
Groupe :
Groupe 2 :