Diary Manager

<% if not Session("DiaryAdmin") then Response.Redirect("login.asp?go=diary_manager.asp?" & Request.QueryString()) End If function dNum(n) if n >= 10 then dNum = cstr(n) Else dNum = "0" & cstr(n) End If End Function 'SQL Formatted Date Function SQLDate(dt) SQLDate = Year(dt) & "-" & DNum(Month(dt)) & "-" & Dnum(Day(dt)) End Function Response.ExpiresAbsolute = dateadd("d", -5, date()) Response.Expires = -10 set objCon= Server.CreateObject("ADODB.Connection") set objRs = Server.CreateObject("ADODB.Recordset") objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("diary.mdb") view_date = Request.QueryString("view_date") if view_date = "" then view_date = date() %> Diary Manager <% SQL = "SELECT id , dte, diary.text_field, Diary_Categorys.Category, Diary_Categorys.Colour, Diary_Categorys.BgColour" & _ " FROM Diary_Categorys RIGHT JOIN diary ON Diary_Categorys.Cat_ID = diary.Category where " & _ " cdate(Day([dte]) & ' ' & Month([dte]) & ' ' & Year(dte)) = #" & view_date & "#" objRs.Open SQL, objCon %>

Diary Manager

Add New Event | Edit Categories | Back

<%= day(view_date) & " " & monthname(month(view_date)) & " " & year(view_date) %>

" Response.Write "" Response.Write "" & vbcrlf Response.Write "" objRs.MoveNext loop Response.Write "

Choose an Event to Edit

<% if objRs.EOF or objRs.BOF then Response.Write "

Event	Date & Time
No events found for today

" Else do until objRs.EOF Response.Write "

" & objRs("text_field") & "

" & objRs("dte") & "

" End If %> <% on error resume next objRs.Close objCon.Close set objRs= nothing set objCon = nothing %>