<% select case Request.QueryString("mode") case "" %> <% ann = year(Now) do until ann = 2001 ms = 12 do until ms = 0 strSql = "SELECT NEWS.N_ID, NEWS.N_ANNO, NEWS.N_MESE FROM NEWS WHERE N_ANNO = " & ann & " AND N_MESE = '" & doublenum(ms) & "'" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, conn, 3 if rs.BOF and rs.EOF then ' do nothing else select case ms case "12" %> Dicembre <%= ann %> <% case "11" %> Novembre <%= ann %> <% case "10" %> Ottobre <%= ann %> <% case "9" %> Settembre <%= ann %> <% case "8" %> Agosto <%= ann %> <% case "7" %> Luglio <%= ann %> <% case "6" %> Giugno <%= ann %> <% case "5" %> Maggio <%= ann %> <% case "4" %> Aprile <%= ann %> <% case "3" %> Marzo <%= ann %> <% case "2" %> Febbraio <%= ann %> <% case "1" %> Gennaio <%= ann %> <% end select end if ms = ms - 1 rs.Close set rs = nothing loop ann = ann - 1 loop %> TORNA AGLI SPOILER <% case "list" %> <% select case Request.QueryString("m") case "12" %> Dicembre <%= Request.QueryString("a") %> <% case "11" %> Novembre <%= Request.QueryString("a") %> <% case "10" %> Ottobre <%= Request.QueryString("a") %> <% case "09" %> Settembre <%= Request.QueryString("a") %> <% case "08" %> Agosto <%= Request.QueryString("a") %> <% case "07" %> Luglio <%= Request.QueryString("a") %> <% case "06" %> Giugno <%= Request.QueryString("a") %> <% case "05" %> Maggio <%= Request.QueryString("a") %> <% case "04" %> Aprile <%= Request.QueryString("a") %> <% case "03" %> Marzo <%= Request.QueryString("a") %> <% case "02" %> Febbraio <%= Request.QueryString("a") %> <% case "01" %> Gennaio <%= Request.QueryString("a") %> <% end select %> <% strSql = "SELECT NEWS.N_ID, NEWS.N_TITLE, NEWS.N_ANNO, NEWS.N_MESE, NEWS.N_GIORNO, NEWS.N_ORA FROM NEWS WHERE N_ANNO = " & cint(Request.QueryString("a")) & " AND N_MESE = '" & Request.QueryString("m") & "' ORDER BY N_DATA DESC, N_ID DESC;" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, conn, 3 rs.MoveFirst do until rs.EOF select case rs("N_MESE") case "01" vrmese = "Gennaio" case "02" vrmese = "Febbraio" case "03" vrmese = "Marzo" case "04" vrmese = "Aprile" case "05" vrmese = "Maggio" case "06" vrmese = "Giugno" case "07" vrmese = "Luglio" case "08" vrmese = "Agosto" case "09" vrmese = "Settembre" case "10" vrmese = "Ottobre" case "11" vrmese = "Novembre" case "12" vrmese = "Dicembre" end select %> <%= rs("N_GIORNO") %> <%= vrmese %> <%= rs("N_ANNO") %> - ore <%= rs("N_ORA") %> " STYLE="color:#FFAA44"><%= rs("N_TITLE") %> <% rs.MoveNext loop rs.Close set rs = nothing %> Indietro TORNA AGLI SPOILER <% case "view" strSql = "SELECT NEWS.N_ID, NEWS.N_TITLE, NEWS.N_BODY, NEWS.N_ANNO, NEWS.N_MESE, NEWS.N_GIORNO, NEWS.N_DATA, NEWS.N_ORA, NEWS.N_FONTE FROM NEWS WHERE N_ID = " & Request.QueryString("id") set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, conn, 3 select case rs("N_MESE") case "01" vrmese = "Gennaio" case "02" vrmese = "Febbraio" case "03" vrmese = "Marzo" case "04" vrmese = "Aprile" case "05" vrmese = "Maggio" case "06" vrmese = "Giugno" case "07" vrmese = "Luglio" case "08" vrmese = "Agosto" case "09" vrmese = "Settembre" case "10" vrmese = "Ottobre" case "11" vrmese = "Novembre" case "12" vrmese = "Dicembre" end select nwsbody = rs("N_BODY") nwsbody = FormatStr(nwsbody) %> <%= rs("N_GIORNO") %> <%= vrmese %> <%= rs("N_ANNO") %> - ore <%= rs("N_ORA") %> <%= rs("N_TITLE") %> <%= nwsbody %> (Fonte: <%= rs("N_FONTE") %>) Indietro TORNA AGLI SPOILER <% rs.Close set rs = nothing end select conn.Close set conn = nothing %>