% if not Session("DiaryAdmin") then Response.write("") 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 set objRs = Server.CreateObject("ADODB.Recordset") view_date = Request.QueryString("view_date") if view_date = "" then view_date = clng(date()) %>
|
||||||||||||||||