<%@LANGUAGE="VBSCRIPT"%> <% Dim anni Dim anni_numRows Set anni = Server.CreateObject("ADODB.Recordset") anni.ActiveConnection = MM_conn_STRING anni.Source = "SELECT DISTINCT anno FROM news WHERE titoloING = 'NO' AND anno=" & request.QueryString("anno") & " ORDER BY anno DESC" anni.CursorType = 0 anni.CursorLocation = 2 anni.LockType = 1 anni.Open() anni_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 anni_numRows = anni_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 mesi_numRows = mesi_numRows + Repeat2__numRows %> GUIDO HARARI

ARCHIVIO <%=request.QueryString("anno")%>

[torna all'elenco news] <% if not (anni.EOF) then %>
 
<%anni.movefirst%> <% While ((Repeat3__numRows <> 0) AND (NOT anni.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 anni.MoveNext() Wend %>
 
<% 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="& anni.fields("anno") & " ORDER BY mese DESC" mesi.CursorType = 0 mesi.CursorLocation = 2 mesi.LockType = 1 mesi.Open() mesi_numRows = 0 %> <% 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="& anni.fields("anno") & " AND mese=" & (mesi.Fields.Item("mese").Value) & " ORDER BY ID 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 %> <% mesi.Close() Set mesi = Nothing %>
  <%=ucase(monthname((mesi.Fields.Item("mese").Value)))%> <%=(anni.Fields.Item("anno").Value)%>
>   "><%=(r1.Fields.Item("titolo").Value)%>
 
 

<% else %>

NON SONO PRESENTI NEWS NELL'ARCHIVIO <% end if %>

 

 

 

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