Glenndale PA Event Calendar

<% PassDate = Request.QueryString("PassDate") 'Response.write("Passdate = " & PassDate) Set Conn = Server.CreateObject("ADODB.Connection") conn.Open("GlennDalePAdb") If PassDate <> "" then datToday = PassDate 'Response.write("datToday = " & datToday) intThisYear = Year(datToday) intThisMonth = Month(datToday) intThisDay = Day (datToday) strMonthName = MonthName(intThisMonth) strWeekDayName = WeekDayName(WeekDay(datToday), False, 1) datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) intLastDay = GetLastDay(datToday) intPrintDay = 1 Else datToday = Date() intThisYear = Year(datToday) intThisMonth = Month(datToday) intThisDay = Day (datToday) strMonthName = MonthName(intThisMonth) strWeekDayName = WeekDayName(WeekDay(datToday), False, 1) datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) ' intLastDay = GetLastDay(datToday) ' intPrintDay = 1 end if %> Glenndale PA Event Calendar

Week at a Glance
<%=Date()%>

<% ThisDate = Date() ThisDay = Day(Date()) ThisMonth = Month(Date()) ThisYear = Year(Date()) For x = 0 to 9 %>

<%=WeekdayName(Weekday(dateadd("d", x, Date())))%> (<%=dateadd("d", x, Date())%>)
<% sql = "" Set Conn = Server.CreateObject("ADODB.Connection") conn.Open("GlennDalePAdb") sql = "SELECT CommunityEvents.EventID, EventTypes.EventType, CommunityEvents.Title, CommunityEvents.StartDT " sql = sql & "FROM EventTypes INNER JOIN CommunityEvents ON EventTypes.EventTypeID = CommunityEvents.EventTypeID " sql = sql & "WHERE (CommunityEvents.UserDisplaySW=False) AND (CommunityEvents.AdminApproval=True) " sql = sql & "and (CommunityEvents.StartDT=#"& dateAdd("d", x, thisdate) & "#) " sql = sql & "ORDER BY CommunityEvents.[SubmitDT]; "%> <%'=sql%> <% set RS = Conn.Execute(sql) %>
<% Do While Not RS.EOF %>
"><%=RS("EventType")%> - <%=RS("Title")%> (<%=RS("StartDT")%>)
<% RS.MoveNext Loop Conn.Close%>

<% next %>

HOT EVENTS

<% datToday = Date() intThisYear = Year(datToday) intThisMonth = Month(datToday) intThisDay = Day (datToday) Set Conn = Server.CreateObject("ADODB.Connection") conn.Open("GlennDalePAdb") sql = "SELECT CommunityEvents.EventID, EventTypes.EventType, CommunityEvents.Title, CommunityEvents.StartDT, PromotionHotItem " sql = sql & "FROM EventTypes INNER JOIN CommunityEvents ON EventTypes.EventTypeID = CommunityEvents.EventTypeID " sql = sql & "WHERE (CommunityEvents.UserDisplaySW=False) AND (CommunityEvents.AdminApproval=True) and (PromotionHotItem=True) " sql = sql & "and (CommunityEvents.StartDT>=#"&intthismonth&"/"&intthisday&"/"&intthisyear&"#) " sql = sql & "ORDER BY CommunityEvents.[SubmitDT]; "%> <%'=sql%> <% set RS = Conn.Execute(sql) Do While Not RS.EOF%>

"><%=RS("EventType")%> - <%=RS("Title")%>

<%RS.MoveNext Loop%>

VIEWING OPTIONS

Click here to Request More Information

Address: PO Box 89 Flinton, PA 16640	Phone: 814-687-4216 Toll Free: 800-666-1810
Copyright © Glendale Yearound. 1998 Hosted by Niche.Net