%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsCalendar Dim rsCalendar_numRows Set rsCalendar = Server.CreateObject("ADODB.Recordset") rsCalendar.ActiveConnection = MM_connClassic_STRING rsCalendar.Source = "SELECT * FROM calendar ORDER BY Date DESC" rsCalendar.CursorType = 0 rsCalendar.CursorLocation = 2 rsCalendar.LockType = 1 rsCalendar.Open() rsCalendar_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsCalendar_numRows = rsCalendar_numRows + Repeat1__numRows %>
|
|
||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||