%@LANGUAGE="VBSCRIPT"%> <% Dim rsNews Dim rsNews_cmd Dim rsNews_numRows Set rsNews_cmd = Server.CreateObject ("ADODB.Command") rsNews_cmd.ActiveConnection = MM_connTubacChamber_STRING rsNews_cmd.CommandText = "SELECT * FROM tblNews ORDER BY news_date DESC" rsNews_cmd.Prepared = true Set rsNews = rsNews_cmd.Execute rsNews_numRows = 0 %> <% Dim repeatNews__numRows Dim repeatNews__index repeatNews__numRows = 3 repeatNews__index = 0 rsNews_numRows = rsNews_numRows + repeatNews__numRows %>