<%@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 = 5 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 %> ScuolaImpresa - Home Page
<% REM CARICA I VALORI DELLE PRIME 5 COLONNE Dim id(6),titolo(6),file_immagine(6), sottotitolo(6), descrizione(6) 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 %>
<%=titolo(1)%> <%=titolo(2)%> <%=titolo(3)%> <%=titolo(4)%> Quinta Sezione Sesta Sezione
<%=titolo(1)%> <%=titolo(2)%> <%=titolo(3)%> <%=titolo(4)%> <%=titolo(4)%> <%=titolo(4)%>

<%=sottotitolo(1)%>
<%=sottotitolo(2)%>
<%=sottotitolo(3)%>
<%=sottotitolo(4)%>
Sottotitolo quinta sezione
Sottotitolo sesta sezione
<%=InserisciBR(descrizione(1))%>
 <%=InserisciBR(descrizione(2))%> <%=InserisciBR(descrizione(3))%>
 <%=InserisciBR(descrizione(4))%> <%=InserisciBR("Descrizione della quinta sezione")%> <%=InserisciBR("Descrizione della sesta sezione")%>
 
<% elenco_notizie.Close() Set elenco_notizie = Nothing %> <% elenco_novita.Close() Set elenco_novita = Nothing %>