|
|
|||||||||||||||
%@LANGUAGE="VBSCRIPT"%> <% WE_SelectedYear = Year(Date()) WE_SelectedMonth = Month(Date()) WE_SelectedDay = Day(Date()) %> <% Dim rsEvents Dim rsEvents_numRows Set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_connEvents_STRING rsEvents.Source = "SELECT * FROM events WHERE status ORDER BY StartYear, StartMonth, StartDay" 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 %>
|
|
|||||||||||||||