- <%
- '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>
<%
'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>