Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 116 fois - Téléchargée 35 fois
<% '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.