%@LANGUAGE="VBSCRIPT"%> <% Dim newsnazionali Dim newsnazionali_numRows Set newsnazionali = Server.CreateObject("ADODB.Recordset") newsnazionali.ActiveConnection = MM_C41News_STRING newsnazionali.Source = "SELECT * FROM News WHERE Nazionale=True ORDER BY [Data Fine] DESC, Data DESC" newsnazionali.CursorType = 0 newsnazionali.CursorLocation = 2 newsnazionali.LockType = 1 newsnazionali.Open() newsnazionali_numRows = 0 %> <% Dim Clubs Dim Clubs_numRows Set Clubs = Server.CreateObject("ADODB.Recordset") Clubs.ActiveConnection = MM_C41_STRING Clubs.Source = "SELECT Sede, Date() AS Data FROM Clubs WHERE Sede<>'Nazionale' ORDER BY Sede" Clubs.CursorType = 0 Clubs.CursorLocation = 2 Clubs.LockType = 1 Clubs.Open() Clubs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 newsnazionali_numRows = newsnazionali_numRows + Repeat1__numRows %>