<style type="text/css">
td {
font-family: courier new;
font-size: 10pt;
}
</style>
<%
nyear=year(now)+543
tmpmonth=1
Response.Write "<table border=0 cellspacing=0 cellpadding=13>"
Do While tmpmonth<=12
for td=1 to 4
Response.Write "<td align='center' valign='top'>"
CurrentDay=day(now)&"/"&tmpmonth&"/"&nyear
CurrentDay=DatePart("d", currentday)
CurrentWeekday=Weekday(day(now)&"/"&tmpmonth&"/"&nyear)
temp=CurrentDay mod 7
FirstWeekday=CurrentWeekday-temp
If (FirstWeekday) >= 0 Then
FirstWeekday=FirstWeekday+1
Else
FirstWeekday=FirstWeekday+8
End If
Do While DayCount<=LastDay
Response.Write "<tr>"
For i=1 To 7
If (i<>FirstWeekday) And (DayCount=1) Then
Response.Write "<td></td>"
Else
If DayCount<=LastDay Then
If DayCount=CurrentDay Then
Response.Write "<td bgcolor=#ffff99 align=center><b>" & DayCount & "</b></td>"
Else
Response.Write "<td align=center>" & DayCount & "</td>"
End If
DayCount=DayCount+1
End If
End If
Next
Response.Write "</tr>"
Loop
response.Write "</table>"
Response.write "</td>"
tmpmonth=tmpmonth+1
Next
Response.Write "</tr>"
Loop
Response.Write "</table>"
%>