<% 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.