L'Agenda Angoumoisin avec

Rechercher un événement du

Jour Mois au
Jour Mois

Type d'événement

 

 

 


<% datToday = Date() 'today's date intThisYear = Year(datToday) 'the current year intThisMonth = Month(datToday) 'the current month intThisDay = Day(datToday) 'the current day strMonthName = MonthName(intThisMonth) 'the name of the current month 'now get the name of the current day strWeekDayName = WeekDayName(WeekDay(datToday), False, vbSunday) 'find the first and last days of this month datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) intLastDay = GetLastDay(datToday) intPrintDay = 1 'the value of the day number to print in the page %>

<% While intPrintDay <= intLastDay %> <% For intLoopDay = 1 To 7 %> <% If intPrintDay = intThisDay Then %> <% Next %> <% Wend %>
<% = strMonthName %> <% = intThisYear %>
 Dim   Lun  Mar  Mer  Jeu

 Ven

Sam
<% Else %> <% End If %> <% If intFirstWeekDay > 1 Then %> - <% intFirstWeekDay = intFirstWeekDay - 1 %> <% Else %> <% If intPrintDay > intLastDay Then %> - <% Else %> <% = intPrintDay %> <% End If %> <% intPrintDay = intPrintDay + 1 %> <% End If %>