<%@LANGUAGE="VBSCRIPT"%> <% Dim elenco_notizie Dim elenco_notizie_numRows Set elenco_notizie = Server.CreateObject("ADODB.Recordset") elenco_notizie.ActiveConnection = MM_scuolaimpresa_STRING elenco_notizie.Source = "SELECT * FROM notizie WHERE visibile = 'S' ORDER BY posizione ASC" elenco_notizie.CursorType = 0 elenco_notizie.CursorLocation = 2 elenco_notizie.LockType = 1 elenco_notizie.Open() %> <% Dim elenco_novita Dim elenco_novita_numRows Set elenco_novita = Server.CreateObject("ADODB.Recordset") elenco_novita.ActiveConnection = MM_scuolaimpresa_STRING elenco_novita.Source = "SELECT * FROM novita ORDER BY id ASC" elenco_novita.CursorType = 0 elenco_novita.CursorLocation = 2 elenco_novita.LockType = 1 elenco_novita.Open() elenco_novita_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 elenco_notizie_numRows = elenco_notizie_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 elenco_notizie_numRows = elenco_notizie_numRows + Repeat2__numRows REM CARICA I VALORI DELLE PRIME 5 COLONNE Dim id(20),titolo(20),file_immagine(20), sottotitolo(20), descrizione(20) i = 0 While ((Repeat1__numRows <> 0) AND (NOT elenco_notizie.EOF)) i = i + 1 id(i) = elenco_notizie.Fields.Item("id").Value titolo(i) = elenco_notizie.Fields.Item("titolo").Value file_immagine(i) = elenco_notizie.Fields.Item("file_immagine").Value sottotitolo(i) = elenco_notizie.Fields.Item("sottotitolo").Value descrizione(i) = elenco_notizie.Fields.Item("descrizione").Value Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 elenco_notizie.MoveNext() Wend notizie_presenti = i %> ScuolaImpresa - Home Page
<% for i=1 to notizie_presenti %>
<%=titolo(i)%>
<%=titolo(i)%>
<%=sottotitolo(i)%>
<%=InserisciBR(descrizione(i))%>
<% next %>
<% elenco_notizie.Close() Set elenco_notizie = Nothing %> <% elenco_novita.Close() Set elenco_novita = Nothing %>