<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim events__MMColParam events__MMColParam = "Yes" If (Request("MM_EmptyValue") <> "") Then events__MMColParam = Request("MM_EmptyValue") End If %> <% Dim events Dim events_numRows Set events = Server.CreateObject("ADODB.Recordset") events.ActiveConnection = MM_rcdb_STRING events.Source = "SELECT * FROM Events WHERE EDisplay = " + Replace(events__MMColParam, "'", "''") + " ORDER BY EStartDate ASC" events.CursorType = 0 events.CursorLocation = 2 events.LockType = 1 events.Open() events_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 events_numRows = events_numRows + Repeat1__numRows %> Tarheel R/C Flyers Events
Home Members Events Forums Resources Contact/Join Us
 

Events


<% While ((Repeat1__numRows <> 0) AND (NOT events.EOF)) %> "> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 events.MoveNext() Wend %>
class="oldevent"<% end if %>>"><%=(events.Fields.Item("ETitle").Value)%>
<%=(events.Fields.Item("EStartDate").Value)%> <% if (events.Fields.Item("EEndDate").Value) > (events.Fields.Item("EStartDate").Value) then %> - <%=(events.Fields.Item("EEndDate").Value)%> <% end if %>
Got an Event?
Do you have an upcoming event that you would like Tarheel R/C Flyers to participate in? Let us know!!!

 

 
Members, check your email here.
<% events.Close() Set events = Nothing %>