<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLastNews Dim rsLastNews_cmd Dim rsLastNews_numRows Set rsLastNews_cmd = Server.CreateObject ("ADODB.Command") rsLastNews_cmd.ActiveConnection = MM_connNews_STRING rsLastNews_cmd.CommandText = "SELECT Content FROM News WHERE Active = true ORDER BY TS DESC" rsLastNews_cmd.Prepared = true Set rsLastNews = rsLastNews_cmd.Execute rsLastNews_numRows = 0 %> <% Dim rsLastThreeNews Dim rsLastThreeNews_cmd Dim rsLastThreeNews_numRows Set rsLastThreeNews_cmd = Server.CreateObject ("ADODB.Command") rsLastThreeNews_cmd.ActiveConnection = MM_connNews_STRING rsLastThreeNews_cmd.CommandText = "SELECT ID, Title, SubTitle, TS FROM News WHERE Active = true ORDER BY TS DESC" rsLastThreeNews_cmd.Prepared = true Set rsLastThreeNews = rsLastThreeNews_cmd.Execute rsLastThreeNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 1 Repeat1__index = 0 rsLastNews_numRows = rsLastNews_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 3 Repeat2__index = 0 rsLastThreeNews_numRows = rsLastThreeNews_numRows + Repeat2__numRows %> JECOM SPORT - Luka Štumberger s.p.