<%@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)>=Date())) ORDER BY Event_Start_Date ASC" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 1 rsEvents.Open() rsEvents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> Friends Calendar - Current

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.

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