Archivio NEWS
|
<%
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 ALLE NEWS <% 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.Close set rs = nothing end select conn.Close set conn = nothing %> |
