%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set lista_news = Server.CreateObject("ADODB.Recordset") lista_news.ActiveConnection = MM_accademia_STRING lista_news.Source = "SELECT * FROM News ORDER BY Data DESC" lista_news.CursorType = 0 lista_news.CursorLocation = 2 lista_news.LockType = 3 lista_news.Open() lista_news_numRows = 0 %> <% Dim Repeat666__numRows Repeat666__numRows = -1 Dim Repeat666__index Repeat666__index = 0 lista_news_numRows = lista_news_numRows + Repeat666__numRows %> <% news_roller = "" %> <% While ((Repeat666__numRows <> 0) AND (NOT lista_news.EOF)) %> <% news_roller = " |" & news_roller & lista_news.Fields.Item("Titolo").Value & "| " %> <% Repeat666__index=Repeat666__index+1 Repeat666__numRows=Repeat666__numRows-1 lista_news.MoveNext() Wend %>