<%' startdate = dateadd("d", -7, date()) 'Start date set to 7 days prior to current date %>
<%=Request("TypeName1")%>
New Events Added this Week.

">< Back to Month at a Glance.

')"> <%=startdate%> - <%=date()%>
    <% sql = "SELECT * FROM Calendars " If Request("Type") = "" or Request("Type") = "0" then sql = sql & "WHERE visible = 1 AND AdminDate > #"& startdate &"#" Else sql = sql & "WHERE visible = 1 AND type=" & cint(Request("Type")) & " AND AdminDate > #"& startdate &"#" End If Set rs = Server.CreateObject("ADODB.Recordset") 'Create recordset Object rs.Open sql, conn, 3, 3 'Open recordset 'Populate the events added within the last seven days Do while not rs.eof %>
  • )"><%= rs("EventName") %> <% sql2 = "SELECT * FROM CalendarDates WHERE NewsID=" & rs("NewsID") Set rs2 = Server.CreateObject("ADODB.Recordset") 'Create recordset object rs2.Open sql2, conn, 3, 3 'Open recordset 'Populate the list of dates for the event this will list all recurrances as well as single instances If rs2.recordcount > 0 then %>
    " <%if Cint(request("NewsID")) <> Cint(rs("NewsID")) then%>style="display:none"<%else%>style="display:block"<%end if%>>
    <% End If %>
    • <% rs.movenext 'Move to next record Loop rs.close 'Close recordset set rs=nothing %>