<%
Set oSchedule = New Calendar
oSchedule.Database = "\access_db\calendar.mdb"
oSchedule.Starts = DateSerial(2008, 1, 1)
oSchedule.Ends = DateSerial(2008, 1, 31)
Response.Write oSchedule.Schedule
Set oSchedule = Nothing
%>
January
| | 1
01-JAN-08 at 11:00
-
01-JAN-08 at 13:00
New Year's Lunch
Join us for a New Year's Day lunch and start the new year off right!
| 2 | 3 | 4 | 5 |
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21
21-JAN-08 at 07:00
-
21-JAN-08 at 09:00
MLK Prayer Breakfast
21-JAN-08 at 11:00
-
21-JAN-08 at 13:00
Parade
Join us for a civil rights parade
| 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | 30 | 31 | |
<%
Set oCalendar = New Calendar
oCalendar.Starts = DateSerial(2008, 1, 1)
oCalendar.Ends = DateSerial(2008, 4, 30)
Response.Write oCalendar.Html
Set oCalendar = Nothing
%>
<style type="text/css">
table.calendar {
border:1px solid #000;
font-family:Verdana;
}
table.calendar caption {
font-weight:bold;
text-align:center;
}
table.calendar tr td {
border:1px solid #666;
cursor:default;
font-size:.7em;
height:3em;
text-align:right;
vertical-align:top;
width:3em;
}
table.calendar tr td.weekend {
background-color:#ccc;
}
table.calendar tr td.weekday {
background-color:#fff;
}
table.calendar tr td.holiday {
font-weight:bold;
}
table.calendar tr td.religious {
color:#f00;
}
</style>
