%@LANGUAGE="VBSCRIPT"%> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_connCMS_STRING rsNews.Source = "SELECT * FROM article_t WHERE article_section = 1 ORDER BY article_id DESC" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim Repeat55__numRows Dim Repeat55__index Repeat55__numRows = 3 Repeat55__index = 0 rsNews_numRows = rsNews_numRows + Repeat55__numRows %>
