<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs_archivio Dim rs_archivio_cmd Dim rs_archivio_numRows Set rs_archivio_cmd = Server.CreateObject ("ADODB.Command") rs_archivio_cmd.ActiveConnection = MM_max_STRING rs_archivio_cmd.CommandText = "SELECT * FROM Notizie_new ORDER BY Idnews DESC" rs_archivio_cmd.Prepared = true Set rs_archivio = rs_archivio_cmd.Execute rs_archivio_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 rs_archivio_numRows = rs_archivio_numRows + Repeat1__numRows %>

Home Risultati Foto Settore Giovanile Settore Master Maratonina
	Archivio articoli
	<% While ((Repeat1__numRows <> 0) AND (NOT rs_archivio.EOF)) %> " class="Stile2 Stile2 Stile2"><%=(rs_archivio.Fields.Item("Notizia").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_archivio.MoveNext() Wend %>

<% rs_archivio.Close() Set rs_archivio = Nothing %>