%@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
%>
Events
<%
While ((Repeat1__numRows <> 0) AND (NOT events.EOF))
%>
">
 |
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 %> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
events.MoveNext()
Wend
%>
|
| Got an Event? |
| Do you have an upcoming event that you would like Tarheel R/C Flyers to participate in? Let us know!!! |
|