<% dim strCon strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("events.mdb") '-------------------------------------------------------------------- ' DISPLAYS THE EVENTS CALENDAR IN THE DATABASE BY MONTH, AND DAY '-------------------------------------------------------------------- Dim eventsConn, EventsSQL Set eventsConn = Server.CreateObject ("ADODB.Recordset") EventsSQL = "SELECT * FROM events where date > " & date() & " ORDER BY Date ASC" eventsConn.Open EventsSQL, strCon 'Used for month rowspans and background colors dim bgColor, num bgColor = "#eeeeee" num = 1 'Used for distinguishing between different rows dim previousMonth, currentMonth %>
 |
|||||||
 |
 |
 |
 |
 |
 |
||