');" href="#" alt="Help">

<% 'This is the object that will allow for testing on this page Dim l_user As New ADXCalendar.ADXCalendarLogin(Session("account_id"), Session("DataConn_ConnectionString")) Dim a_mod As ADXCalendar.ADXCalendarModules = ADXCalendar.AdminFunctions.GetCalendarModuleObject(Session("BaseCalendarPATH")) Response.Write("") %>

<% If a_mod.Calendar_FacilityModule = True Then 'This calendar has the facility module and this user has access to it... Response.Write("") End If Response.Write("") If a_mod.Calendar_PrivateModule = True And (l_user.GetPrivilegeViewPrivateEvents = "x") Then If Session("PrivateCalendarKeytext") = "##ODD##" Then Response.Write("") Else Response.Write("") End If End If Response.Write("") %>

<% Response.Write("") %>

") Dim pbl As String = l_user.GetPrivilegePublic() Dim prv As String = l_user.GetPrivilegePrivate() Dim facEnabled As Boolean = a_mod.Calendar_FacilityModule() If (facEnabled AndAlso l_user.UserHasDepartmentPrivilege = True) Or (Not facEnabled AndAlso (pbl = "x" Or prv = "x")) Or l_user.GetPrivilegePurge = "x" Or l_user.GetPrivilegeImportData = "x" Or l_user.GetPrivilegeExport = "x" Or l_user.GetPrivilegeRegistration = "x" Or l_user.GetAdvancedRegistrationFormsOwned.Count > 0 Then Response.Write("") Response.Write("") End If Response.Write("") Response.Write("") If a_mod.Calendar_FacilityModule Then Response.Write("") Response.Write("") Response.Write("") Else Response.Write("") End If Response.Write("") Response.Write("") If l_user.GetPrivilegeSendNotification = "x" Or l_user.GetPrivilegeTeaserScript = "x" Or l_user.GetPrivilegeTemplate = "x" Then 'Off Response.Write("") Response.Write("") Else 'This user does not have Marketing permissions End If If l_user.GetPrivilegeViewReports() = "x" Then 'Off Response.Write("") Response.Write("") End If If l_user.GetPrivilegeConfiguration = "x" Or l_user.IsSuperuser = True or l_user.GetPrivilegeRegistrationForms = "x" Then 'Off Response.Write("") If l_user.GetPrivilegeConfiguration = "x" Or l_user.IsSuperuser = True Then Response.Write("") ElseIf l_user.GetPrivilegeRegistrationForms = "x" Then Response.Write("") End If Else 'This user does not have Configuration permissions End If Response.Write("

<% '********** EVENTS ********** Dim dash As String = " - " If l_user.UserHasDepartmentPrivilege = True Or l_user.IsSuperuser = True Then If a_mod.Calendar_FacilityModule() = True Then 'Facility calendars only require departments permissions to use the event wizard Response.Write(" EVENTS: ") Response.Write("Add" & dash & "Modify/Cancel/Delete") ElseIf l_user.GetPrivilegePrivate() = "x" Or l_user.GetPrivilegePublic() = "x" Then 'Marketing calendar require public/private calendar permission to use the event wizard Response.Write(" EVENTS: ") Response.Write("Add" & dash & "Modify/Cancel/Delete") End If End If If l_user.GetPrivilegePurge = "x" Then Response.Write(dash & "Purge") End If If l_user.GetPrivilegeImportData = "x" Then Response.Write(" IMPORT: ") Response.Write("Add") Response.Write(dash & "Modify/Delete") Response.Write(dash & "View") End If If l_user.GetPrivilegeExport = "x" Then Response.Write(" EXPORT: ") Response.Write("Add") Response.Write(dash & "Modify/Delete") Response.Write(dash & "View") End If If l_user.GetPrivilegeRegistration = "x" Or l_user.GetAdvancedRegistrationFormsOwned.Count > 0 Then Response.Write(" REGISTRATION: ") Response.Write("Active") Response.Write(dash & "Archive") End If l_user.DisposeADXCalendarLoginClass() %>

<%Response.Write(Session("CurrentAction"))%>

Welcome <%Response.Write(l_user.GetFirstName & " " & l_user.GetLastName)%>! Today is <%=DateTime.Now.ToLongDateString.Substring(DateTime.Now.ToLongDateString.IndexOf(",") + 2)%>.