Welcome to New Seasons - News & Events

<%@LANGUAGE="VBSCRIPT"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "login.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim rsEvents Dim rsEvents_numRows Set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_newseasons_STRING rsEvents.Source = "SELECT * FROM calendar" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 1 rsEvents.Open() rsEvents_numRows = 0 %> <% Function EventsCalendar If Request("EventDate") <> "" Then EventDate = DateValue(Request("EventDate")) Else EventDate = date() End if CurrentMonth = Month(EventDate) CurrentMonthName = MonthName(CurrentMonth) CurrentYear = Year(EventDate) FirstDayDate = DateSerial(CurrentYear, CurrentMonth, 1) FirstDay = WeekDay(FirstDayDate, 0) CurrentDay = FirstDayDate Dim tmpHTML tmpHTML="" tmpHTML = tmpHTML & "" & Chr(10) tmpHTML = tmpHTML & "" & Chr(10) tmpHTML = tmpHTML & "" & Chr(10) tmpHTML = tmpHTML & "" & Chr(10) & "" & Chr(10) & "" Response.Write(tmpHTML) For DayLoop = 1 to 7 Response.Write("" & Chr(10)) Next Response.Write("" & Chr(10) & "") If FirstDay <> 1 Then Response.Write("" & Chr(10)) End if DayCounter = FirstDay CorrectMonth = True Do While CorrectMonth = True isEvent = FALSE rsEvents.filter = 0 Dim iCheck Dim chkStr chkStr = (rsEvents.Fields.Item("eventDate").Name) iCheck = CurrentDay rsEvents.filter = chkStr & "=" & (iCheck) If not(rsEvents.EOF) Then isEvent = TRUE If CurrentDay = EventDate Then Response.Write("" & Chr(10)) Else Response.Write(Day(CurrentDay) & "" & Chr(10)) End If DayCounter = DayCounter + 1 If DayCounter > 7 Then DayCounter = 1 Response.Write("" & Chr(10)) Response.Write(" CurrentMonth Then Response.Write(" class=""lastweek""") End If Response.Write(">" & Chr(10)) End if CurrentDay = DateAdd("d", 1, CurrentDay) If Month(CurrentDay) <> CurrentMonth then CorrectMonth = False End if Loop IF DayCounter <> 1 Then Response.Write("") Else Response.Write("") End if Response.Write("" & Chr(10) & "


" & Chr(10) tmpHTML = tmpHTML & "<" & CurrentMonthName & ">" tmpHTML = tmpHTML & "<" & CurrentYear & ">" tmpHTML = tmpHTML & "
" & WeekDayName(Dayloop, True, 0) & "
	") Else Response.Write("	") End if If isEvent = TRUE Then Response.Write("" & Day(CurrentDay)& "") If Not rsEvents.BOF Then rsEvents.MoveFirst 'Do Until rsEvents.EOF 'If (rsEvents.Fields.Item("EventDate").Value) = CurrentDay Then 'Response.Write(" " & (rsEvents.Fields.Item("EventName").Value) & " ") 'End If 'rsEvents.MoveNext 'Loop End If Response.Write("