Request.RootDir = "../calendar"; Request.PageTitle = "Calendar"; // First day of the month StartDate = CreateDate(URL.Year, URL.Month, 1); NumberDays = DaysInMonth(StartDate); // Last day of the month EndDate = CreateDate(URL.Year, URL.Month, NumberDays); EndDateTime = CreateDateTime(URL.Year, URL.Month, NumberDays, 23, 59, 59); // What day of the week does the month start on? FirstDay = DayOfWeek(StartDate); // Set the number of days left to display, defaults to 1 DaysShown = 1; // Set the current day of week, which defaults to 1. CurrentDOW = 1; // Set the variable that stated whether or not the first day has been shown FirstDayShown = false; // Set the previous/next months to go to. PrevMonth = URL.Month - 1; PrevYear = URL.Year; NextMonth = URL.Month + 1; NextYear = URL.Year; if (URL.Month EQ 1) { PrevMonth = 12; PrevYear = URL.Year - 1; } if (URL.Month EQ 12) { NextMonth = 1; NextYear = URL.Year + 1; } SELECT e.EventID, e.EventName, e.StartDateTime, e.EndDateTime, e.EventShortDesc, e.Location, e.active, et.EventTypeColor, et.EventTypeID, et.EventType FROM cal_event e, cal_event_type et WHERE e.EventTypeID = et.EventTypeID AND e.active = 1 AND (e.StartDateTime BETWEEN #StartDate# AND #EndDateTime# OR e.EndDateTime BETWEEN #StartDate# AND #EndDateTime# OR #StartDate# BETWEEN e.StartDateTime AND e.EndDateTime) AND e.EventTypeID = #URL.EventTypeID# ORDER BY e.StartDateTime SELECT EventTypeID, EventType, EventTypeColor FROM cal_event_type ORDER BY EventTypeID Request.EventStartDay = EventStartDay; Request.EventEndDay = EventEndDay; // If the EventStartDay was from a previous month, set the value to 1. if (DatePart("m", StartDateTime) NEQ URL.Month OR DatePart("yyyy", StartDateTime) NEQ URL.Year) { Request.EventStartDay = 1; } // If the EventEndDay is from a future month, set the value to the last day of the month. if (DatePart("m", EndDateTime) NEQ URL.Month OR DatePart("yyyy", EndDateTime) NEQ URL.Year) { Request.EventEndDay = NumberDays; } // Loop through the days this event covers and add the count of events // for this day to the DayStruct for (i = Request.EventStartDay; i LTE Request.EventEndDay; i = i + 1) { // If there have been no events for this day, count one if (NOT StructKeyExists(DayStruct, i)) { DayStruct[i] = EventID; } else { DayStruct[i] = ListAppend(DayStruct[i], EventID); } } // Add the event to the event structure EventStruct[EventID] = StructNew(); EventStruct[EventID]["EventName"] = EventName; EventStruct[EventID]["EventTypeColor"] = EventTypeColor; EventStruct[EventID]["EventTypeID"] = EventTypeID; EventStruct[EventID]["EventType"] = EventType;

Home > #breadcrumb#Calendar of Events: #MonthAsString(url.Month)# #url.Year#

Summit Saloon Calendar

Jump to:

SELECT e.EventID, e.EventName, e.StartDateTime, e.EndDateTime, e.EventShortDesc, e.Location, e.active, e.signature_event, e.EventImage, et.EventType FROM cal_event e INNER JOIN cal_event_type et ON e.EventTypeID = et.EventTypeID WHERE e.active = 1 AND signature_event = 1 AND EventImage <> "" AND EventImage <> "NULL" AND e.StartDateTime >= '#url.Year#-#url.Month#-#DatePart("d", now())#01'AND (e.StartDateTime >= #now()# OR e.EndDateTime >= #now()# OR #now()# BETWEEN e.StartDateTime AND e.EndDateTime) ORDER BY e.StartDateTime LIMIT 3

Upcoming Signature Events

#EventName#

#DateFormat(StartDateTime, "MMMM D, YYYY")# - #DateFormat(EndDateTime, "MMMM D, YYYY")#

Filter by Event Types

#EventType#

All Events

#RepeatString("", DaysLeft)#

><< #MonthAsString(PrevMonth)# #PrevYear# #MonthAsString(URL.Month)# #URL.Year# #MonthAsString(NextMonth)# #NextYear# >>

#DayOfWeekAsString(DOW)#

&EventTypeID=#URL.EventTypeID#" class="cal">#DaysShown#

#EventStruct[ThisEvent]["EventName"]##Left(EventStruct[ThisEvent]["EventName"], 22)#...

Summary of #MonthAsString(url.Month)# Events

#MonthAsString(Month(StartDateTime))# #DateFormat(StartDateTime, "D")# - #MonthAsString(Month(EndDateTime))# #DateFormat(EndDateTime, "D")# #EventName#
#Location#

#EventShortDesc#