<%@LANGUAGE="VBSCRIPT"%> <% Dim rsArchiveNews Dim rsArchiveNews_cmd Dim rsArchiveNews_numRows Set rsArchiveNews_cmd = Server.CreateObject ("ADODB.Command") rsArchiveNews_cmd.ActiveConnection = MM_connNews_STRING rsArchiveNews_cmd.CommandText = "SELECT ID, Title, TS FROM News WHERE Active = true ORDER BY TS DESC" rsArchiveNews_cmd.Prepared = true Set rsArchiveNews = rsArchiveNews_cmd.Execute rsArchiveNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsArchiveNews_numRows = rsArchiveNews_numRows + Repeat1__numRows %> JECOM SPORT - Luka Štumberger s.p.
 
<% While ((Repeat1__numRows <> 0) AND (NOT rsArchiveNews.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsArchiveNews.MoveNext() Wend %>
 

 
<%=FormatDateTime(rsArchiveNews.Fields.Item("TS"), vbshortdate)%> <%=FormatDateTime(rsArchiveNews.Fields.Item("TS"), vbshorttime)%> "><%=(rsArchiveNews.Fields.Item("Title").Value)%>
 

Back to previous site