<%@LANGUAGE="VBSCRIPT"%> <% Dim mesi Dim mesi_numRows Set mesi = Server.CreateObject("ADODB.Recordset") mesi.ActiveConnection = MM_conn_STRING mesi.Source = "SELECT DISTINCT mese FROM news WHERE titoloING = 'NO' and anno = " & year(now) & " ORDER BY mese DESC" mesi.CursorType = 0 mesi.CursorLocation = 2 mesi.LockType = 1 mesi.Open() mesi_numRows = 0 %> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_conn_STRING news.Source = "SELECT * FROM news WHERE titoloING = 'NO' AND anno = " & year(now) & " ORDER BY data DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim archivi Dim archivi_numRows Set archivi = Server.CreateObject("ADODB.Recordset") archivi.ActiveConnection = MM_conn_STRING archivi.Source = "SELECT anno FROM news WHERE titoloING = 'NO' AND anno < "& year(now) &" GROUP BY anno ORDER BY anno ASC" archivi.CursorType = 0 archivi.CursorLocation = 2 archivi.LockType = 1 archivi.Open() archivi_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 mesi_numRows = mesi_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 news_numRows = news_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 mesi_numRows = mesi_numRows + Repeat2__numRows %> GUIDO HARARI <% if not (mesi.EOF) then %>

ULTIME NEWS

<% While ((Repeat1__numRows <> 0) AND (NOT mesi.EOF)) %> <% Dim r1 Dim r1_numRows Set r1 = Server.CreateObject("ADODB.Recordset") r1.ActiveConnection = MM_conn_STRING r1.Source = "SELECT * FROM news WHERE titoloING = 'NO' AND anno= "& year(now) &" AND mese=" & (mesi.Fields.Item("mese").Value) & " ORDER BY data DESC" r1.CursorType = 0 r1.CursorLocation = 2 r1.LockType = 1 r1.Open() r1_numRows = 0 %> <% While ((Repeat2__numRows <> 0) AND (NOT r1.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 r1.MoveNext() Wend %> <% r1.Close() Set r1 = Nothing %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 mesi.MoveNext() Wend %>
  <%=ucase(monthname((mesi.Fields.Item("mese").Value)))%>  <%=year(now())%>
>   " class="testo"><%=(r1.Fields.Item("titolo").Value)%>
 
<% While ((Repeat3__numRows <> 0) AND (NOT news.EOF)) %>
<%=(news.Fields.Item("periodo").Value)%>
<%=(news.Fields.Item("titolo").Value)%>
 
<%if ((news.Fields.Item("foto").Value) <> "") then%> " alt="" hspace="10" align="right">
<%end if%> <%if ((news.Fields.Item("descrizione").Value) <> "") then%> <%=replace((news.Fields.Item("descrizione").Value),vbcrlf,"
")%> <%end if%>
<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 news.MoveNext() Wend %>
<% else %> ULTIME NEWS

Non ci sono news disponibili <% end if%>
 

ARCHIVIO 2009
ARCHIVIO 2008
ARCHIVIO 2007
ARCHIVIO 2006
<% mesi.Close() Set mesi = Nothing %> <% news.Close() Set news = Nothing %> <% archivi.Close() Set archivi = Nothing %>