Une petite fonction bien utile lors de la création de formulaires d'enregistrement. Elle vous permettra de créer directement les listes déroulantes pour une date.
Je l'utilise beaucoup alors je suppose que d'autres en auront l'utilité ...
Source / Exemple :
<%
'définition de la date du jour (serveur)
dim sDateyear,sDateMois,sDateDay
sDateYear = year(date())
sDateMois = month(date())
sDateDay = day(date())
sub DisplayDay(sPrefixe, sDay)
dim i, lDay
if sDay = "" then
lDay = 1
else
lDay = clng(sDay)
end if
for i = 1 to 31
Response.Write "<option id=""" & sPrefixe & "day" & i & """ name=""" & sPrefixe & "day" & i & """ value=""" & i & """"
if lDay = i then
Response.Write " selected"
end if
Response.Write ">" & i
next
end sub
sub DisplayMonth(sPrefixe, sMonth)
dim i, lMonth
if sMonth = "" then
lMonth = 1
else
lMonth = clng(sMonth)
end if
for i = 1 to 12
Response.Write "<option id=""" & sPrefixe & "month" & i & """ name=""" & sPrefixe & "month" & i & """ value=""" & i & """"
if lMonth = i then
Response.Write " selected"
end if
Response.Write ">" & i
next
end sub
sub DisplayYear(sPrefixe, sYear)
dim i, lYear, lSelectedYear
lYear = year(now)
if sYear = "" then
lSelectedYear = lYear
else
lSelectedYear = clng(sYear)
end if
for i = 0 to 4
Response.Write "<option id=""" & sPrefixe & "month" & i & """ name=""" & sPrefixe & "month" & i & """ value=""" & lYear + i & """"
if lSelectedYear = lYear + i then
Response.Write " selected"
end if
Response.Write ">" & lYear + i
next
end sub
%>
<html>
<body>
<!--votre formulaire
la première partie de l appel de la fonction est le préfixe, à vous de choisir
-->
<select name="jour" id="jour">
<%DisplayDay "jour", sDateDay%>
</select>
<select name="mois" id="mois">
<%DisplayMonth "mois", sDateMois%>
</select>
<select name="annee" id="annee">
<%DisplayYear "annee", sDateYear%>
</select>
<!--fin de votre formulaire-->
</body>
</html>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.