FRIENDS Calendar

There's always something going on at FRIENDS! Please select the type of event you are interested in from the list below for more information.

Current <% If Request.QueryString("Event_Type") <> "" Then %> <%= Request.QueryString("Event_Type")%> <% End If %> <% If Request.QueryString("Event_Type") <> "" Then %> Events <% End If %>
"" Then %>?Event_Type=<%End If%><%= Request.QueryString("Event_Type") %>">View Past <% If Request.QueryString("Event_Type") <> "" Then %> <%= Request.QueryString("Event_Type")%> <%End If%> <% If Request.QueryString("Event_Type") <> "" Then %> Events <%End If%>

<% While ((Repeat1__numRows <> 0) AND (NOT rsEvents.EOF)) %>

<%If (rsEvents.Fields.Item("fld_Parent_Window").Value)=1Then %> <%If (rsEvents.Fields.Item("Event_Page_Link").Value)<>""Then %> " > <%=(rsEvents.Fields.Item("Event_Name").Value)%> <%Else%> <%=(rsEvents.Fields.Item("Event_Name").Value)%> <%End If%> <% Else %> <%If (rsEvents.Fields.Item("Event_Page_Link").Value)<>""Then %> " target="_blank" > <%=(rsEvents.Fields.Item("Event_Name").Value)%> <%Else%> <%=(rsEvents.Fields.Item("Event_Name").Value)%> <%End If%> <%End If%>

<% Dim varEventDesc varEventDesc = "1" if (rsEvents.Fields.Item("Date_Description")<> "") then varEventDesc = (rsEvents.Fields.Item("Date_Description").Value) else varEventDesc = Trim(FormatDateTime((rsEvents.Fields.Item("Event_Start_Date").Value),1) &" to " & FormatDateTime((rsEvents.Fields.Item("Event_End_Date").Value),1)) Response.Write(varEventDesc) %>
Location: <%=(rsEvents.Fields.Item("Event_Location").Value)%>
Contact: <%=(rsEvents.Fields.Item("Event_Ages").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsEvents.MoveNext() Wend %>

Please feel free to contact us with any questions you may have.

Newsletter

Have Lunch?