<%@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
 


<%if (elenco_novita.Fields.Item("visibile").Value = "S") then%> ">Novità <%end if%> <%if (elenco_novita.Fields.Item("visibile").Value = "S") then%> "><%=(elenco_novita.Fields.Item("titolo").Value)%> <%end if%>
<% REM CARICA I VALORI DELLE PRIME 5 COLONNE Dim id(5),titolo(5),file_immagine(5), sottotitolo(5), descrizione(5) 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)%>  
<%=titolo(1)%> <%=titolo(2)%> <%=titolo(3)%> <%=titolo(4)%>

<%=sottotitolo(1)%>
<%=sottotitolo(2)%>
<%=sottotitolo(3)%>
<%=sottotitolo(4)%>
 
<%=InserisciBR(descrizione(1))%>
 <%=InserisciBR(descrizione(2))%> <%=InserisciBR(descrizione(3))%>
 <%=InserisciBR(descrizione(4))%>  

 

Home Page | Chi siamo <%elenco_notizie.MoveFirst()%> <% While ((Repeat2__numRows <> 0) AND (NOT elenco_notizie.EOF)) %> | "><%=(elenco_notizie.Fields.Item("titolo").Value)%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 elenco_notizie.MoveNext() Wend %>

 

ScuolaImpresa
Viale Dante, 12/7
Tel. 0434 241523 Fax 0434 243579
e-mail info@scuolaimpresa.com

 

realizzazione web NAONIS.COM sas
<% elenco_notizie.Close() Set elenco_notizie = Nothing %> <% elenco_novita.Close() Set elenco_novita = Nothing %>