<%
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 = cdbl(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("windr.mdb")
view_date = Request.QueryString("view_date")
if view_date = "" then view_date = clng(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 dte = " & view_date
objRs.Open SQL, objCon
%>