<HTML>
<HEAD>
<TITLE>New Page</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
Dim ddate , JourSuivant ,Jour,mois document.bgcolor="Silver"
for mois=1 to 12
document.write "<Left>"
document.write "<FONT FACE='Arial' COLOR='Maroon' SIZE=4>"
document.write MonthName(mois) & " " & Year(date)
'document.write "<P>"
document.write "<Table CellPadding=10 Border><TR>"
document.write "<Table CellSpacing=1 Border><TR>"
document.write "<TD>Lun<TD>Mar<TD>Mer<TD>Jeu<TD>Ven<TD>Sam<TD>Dim"
document.write "<TR>"
ddate=DateSerial(year(date), mois, 1)
JourSuivant=1
For Jour=1 to 7
If WeekDay(ddate,2)>Jour Then
document.write "<TD></TD>"
else
if (jour<>7) then
document.write "<TD ALIGN=CENTER><FONT SIZE=3>" & JourSuivant & "</TD>"
else
document.write "<TD ALIGN=CENTER><FONT Color='Yellow' SIZE=3>" & JourSuivant & "</TD>"
end if
JourSuivant=JourSuivant+1
ddate=DateSerial(year(date), mois, JourSuivant)
End If
Next document.write "<TR>"
JourSemaine=1
while month(ddate)=mois if (WeekDay(ddate)<>1) then
document.write "<TD ALIGN=CENTER><FONT SIZE=3>" & JourSuivant & "</TD>"
else
document.write "<TD ALIGN=CENTER><FONT COLOR='Yellow' SIZE=3>" & JourSuivant & "</TD>"
end if
JourSuivant=JourSuivant+1
JourSemaine=JourSemaine+1
If JourSemaine>7 then
JourSemaine=1
document.write "<TR>"
End If
ddate=DateSerial(year(date), mois, JourSuivant)
wend
document.write "</TABLE>"
document.write "</Left>"
document.write "<P>"
next
</SCRIPT>
</HEAD>
<BODY>
</BODY>
|