function nom_mois (mois)
     select case mois
            case "1"
               nom_mois = "Janvier"
            case "2"
               nom_mois = "Février"
            case "3"
               nom_mois = "Mars"
            case "4"
               nom_mois = "Avril"
            case "5"
               nom_mois = "Mai"
            case "6"
               nom_mois = "Juin"
            case "7"
               nom_mois = "Juillet"
            case "8"
               nom_mois = "Août"
            case "9"
               nom_mois = "Septembre"
            case "10"
               nom_mois = "Octobre"
            case "11"
               nom_mois = "Novembre"
            case "12"
               nom_mois = "Décembre"
         end select
end function

D=date()
' --- récupération du mois recherché --- '
      mois = request.querystring("mois")
      if mois = "" then
         D=date()
      else
         an=year(D)
         D=dateserial(an,mois,1)
      end if

' --- récupération de l'année recherchée --- '
      an = request.querystring("an")
      if an = "" then
         D=date()
      else
         mois=month(D)
         D=dateserial(an,mois,1)
      end if

' --- création de mes variables ---'
      an=year(D)
      jour=day(D)
      mois=month(D)
      jour_semaine=weekdayname(weekday(D))

' --- gestion des années pour la liste de choix ---'
      ann_rep = year(Date())
      an_deb = ann_rep - 2
      an_fin = ann_rep + 4

' --- nombre de jours dans le mois actuel --- '
      D1 = dateserial(an,mois,1)
      jour_mois=weekdayname(weekday(D1))
      D2 = dateserial(an,mois + 1,1)
      jours_mois = datediff("d",D1,D2)

' --- détermination du jour de la semaine pour le premier du mois --- '
      pos_premier = Weekday(D1,2)
      pos_premier = pos_premier - 1

' --- détermination des variables de calcul du tableau --- '
      j=1         ' compteur de jours du mois
      l=0         ' compteur de ligne... permet de déterminer le positionnement du 1 dans la première ligne
      c=0         ' compteur de cellule... permet de déterminer le saut de ligne du tableau
      p=0         ' positionnement du premier jours du mois dans une semaine de 7 jours