%@LANGUAGE="VBSCRIPT"%> <% Dim idea Dim idea_numRows Set idea = Server.CreateObject("ADODB.Recordset") idea.ActiveConnection = MM_amici_STRING idea.Source = "SELECT * FROM Idea ORDER BY datapubblicazione DESC" idea.CursorType = 0 idea.CursorLocation = 2 idea.LockType = 1 idea.Open() idea_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 idea_numRows = idea_numRows + Repeat1__numRows %>
<% While ((Repeat1__numRows <> 0) AND (NOT idea.EOF)) %>
/idea.htm" target="_blank"><%=(idea.Fields.Item("Titoloidea").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 idea.MoveNext() Wend %>