%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_gydb_STRING rsNews.Source = "SELECT * FROM gynews WHERE niEnabled=true ORDER BY niCreatedOn DESC" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim rsEvents Dim rsEvents_numRows Set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_gydb_STRING rsEvents.Source = "SELECT * FROM gyevents ORDER BY evCreatedOn DESC" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 1 rsEvents.Open() rsEvents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 2 Repeat2__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat2__numRows %>
| . |
|
| |||||||||||||||||||||||||||||||||||||||||||||||||||
|
. |
||||||
| ||||||