<% 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()) %> Event Calendar Manager
 
 

Edit Events
<%If Session("utype")="Administrator" Then%> | Edit Property | Edit User <%end if%> | Logout
Webmaster : info@neudimenxion.com | Copyright © 2005 NEUDIMENXION. All rights reserved
 
 
<% on error resume next objRs.Close cn.Close set objRs= nothing set cn = nothing %>