<%
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)
%>
Diary Side
MORE ABOUT
<%
sql = "SELECT distinct year FROM mulldiary where year < " & YearDate & " ORDER BY year"
rs.Open sql, OBJdbConnection, 3, 3
' response.write ""
do while Not rs.eof
response.write "
"
bnk = bnk & "
"
rs.movenext
loop
rs.close
' response.write "
"
response.write("" & Year(Date)) & " Events
"
response.write("Please select a Month from above list.")
response.write "
"
sw=0
sql = "SELECT distinct year FROM mulldiary where year > " & YearDate & " ORDER BY year"
rs.Open sql, OBJdbConnection, 3, 3
' response.write "
"
do while Not rs.eof
if sw=0 then
response.write ("Future Years") & "
"
sw=1
end if
response.write "
"
rs.movenext
loop
rs.close
' response.write "
Submit
a diary date
Back
to Tobermory
Back to
Explore Mull
Back to Iona
website