<%
dbfile=Server.MapPath("/_private/mulldiary.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
set rs=Server.CreateObject("ADODB.Recordset")
yeardate = Year(Date)
%>
April 2002
To view events
listings for any month in <% response.write YearDate %>, click on the links above.
To view by year, click
the links to the left.