<% Function GetMonthName(iMois) Select Case iMois Case 1: GetMonthName = "Janvier" Case 2: GetMonthName = "Février" Case 3: GetMonthName = "Mars" Case 4: GetMonthName = "Avril" Case 5: GetMonthName = "Mai" Case 6: GetMonthName = "Juin" Case 7: GetMonthName = "Juillet" Case 8: GetMonthName = "Août" Case 9: GetMonthName = "Septembre" Case 10: GetMonthName = "Octobre" Case 11: GetMonthName = "Novembre" Case 12: GetMonthName = "Décembre" Case Else: GetMonthName = "**Mois Non Valide**" End Select End Function Dim DateCouranteBDD, Date1 If Request.QueryString("Date") <> "" Then Date1 = DateSerial(Request.QueryString("Year"),Request.QueryString("Date"),1) DateCouranteBDD = cdate(date1) ElseIf Len(DateCouranteBDD) = 0 Then DateCouranteBDD = Request.Cookies("DateCalendrier") If Len(DateCouranteBDD) = 0 Then DateCouranteBDD = Date() End If End If Response.Cookies("DateCalendrier").Expires = Now() + 30 Dim JourCalendaire(42) Dim iPremierJourSemaine iPremierJourSemaine = DatePart("w",DateSerial(Year(DateCouranteBDD),Month(DateCouranteBDD),1)) Dim iJoursDansMois iJoursDansMois = DatePart("d",DateSerial(Year(DateCouranteBDD),Month(DateCouranteBDD)+1,1-1)) Dim iBoucle For iBoucle = 1 to iJoursDansMois JourCalendaire(iBoucle + iPremierJourSemaine - 1) = iBoucle Next Dim iColonnes, iRangees iColonnes = 7 iRangees = 6 - Int((42 - (iPremierJourSemaine + iJoursDansMois)) / 7) Dim strMoisPrecedent, strMoisSuivant strMoisPrecedent = Server.URLEncode(DateAdd("m",-1,DateCouranteBDD)) strMoisSuivant = Server.URLEncode(DateAdd("m",1,DateCouranteBDD)) %>