"
document.write ""
document.write ""&MonthName(imonth) & " " & Year(date)&""
document.write "| Sun | Mon | Tue | Wed | Thu | Fri | Sat"
document.write ""
firstdate=DateSerial(year(date), imonth, 1)
thisdate=firstdate
nextday=1
For cday=1 to 7
If WeekDay(thisdate)>cday Then
document.write " | "
else
chkHoliday(imonth)
End If
Next
document.write " "
weekDays=1
while month(thisdate)=imonth
chkHoliday(imonth)
weekDays=weekDays+1
If weekDays>7 then
WeekDays=1
document.write " "
End If
thisdate=DateSerial(year(date), imonth, nextday)
wend
document.write " | "
document.write " | "
for i=1 to 6
if holdate(imonth,i) = "" then
exit for
else
document.write("
"&holdate(imonth,i))
end if
next
document.write "
"
document.write "CALENDAR 99"
document.write "
BACK TO HOME | "
document.write "
