%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsEventsMain
Dim rsEventsMain_numRows
Set rsEventsMain = Server.CreateObject("ADODB.Recordset")
rsEventsMain.ActiveConnection = MM_connMain_STRING
rsEventsMain.Source = "SELECT Start_Date, Event_Title, Event_Details, tEvents.Start_Date, tEvents.Start_Date FROM tEvents WHERE Start_Date>=Date() ORDER BY Start_Date"
rsEventsMain.CursorType = 0
rsEventsMain.CursorLocation = 2
rsEventsMain.LockType = 1
rsEventsMain.Open()
rsEventsMain_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rsEventsMain_numRows = rsEventsMain_numRows + Repeat1__numRows
%>
Mesa Lodge 9 Fraternal Order of Police
<%
rsEventsMain.Close()
Set rsEventsMain = Nothing
%>