<%
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)
%>
New Page 2
