Afficher 3 listes déroulantes en fonction de la date du jour

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 918 fois - Téléchargée 35 fois

Contenu du snippet

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>

A voir également

Ajouter un commentaire

Commentaire

divil
Messages postés
22
Date d'inscription
mercredi 18 octobre 2000
Statut
Membre
Dernière intervention
9 décembre 2005
-
OK, simple mais efficace, il y a toutefois un %> de trop (avant l'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.