<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_friends_STRING MM_friends_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/friends.mdb") %> <% Dim rsEvents__MMColParam rsEvents__MMColParam = "%" If (Request.QueryString("Event_Type") <> "") Then rsEvents__MMColParam = Request.QueryString("Event_Type") End If %> <% Dim rsEvents Dim rsEvents_numRows Set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_friends_STRING rsEvents.Source = "SELECT * FROM Events WHERE Event_Type LIKE '" + Replace(rsEvents__MMColParam, "'", "''") + "' And (((Events.Event_End_Date) <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> Friends Calendar - Past

Friends Calendar - Past Events


Please select the type of event you are interested in from the list below.

Past <% 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 Current  <% 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)%>
Ages: <%=(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.

Kindergarten-ready preschoolers at May Day graduation.

<% rsEvents.Close() Set rsEvents = Nothing %>