Nom |
Prénom |
Sexe |
DDN |
Age |
Tél.(M) |
L |
M |
M |
J |
V |
S |
D |
SS |
<%
Do While counter < sMax AND Not RS.EOF
sNom = RS("Nom")
sPrenom = RS("Prenom")
sDDN = RS("DDN")
sSexe = RS("Sexe")
sTelR = RS("TelR")
%>
<%=sNom%> |
<%=sPrenom%> |
<%=sSexe%> |
<%=sDDN%> |
<%if sDDN <> "" then Response.Write left(datediff("m",sDDN,date()) / 12,2) end if %> |
<%=sTelR%> |
|
|
|
|
|
|
|
SS
|
<%
counter = counter + 1
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
|