codice:
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("mdb-database\db.mdb")
sql = "SELECT DISTINCT(MONTH(data_articolo)) AS mese, YEAR(data_articolo) AS anno " &_
"FROM tbl_articoli " &_
"GROUP BY MONTH(data_articolo), YEAR(data_articolo) " &_
"ORDER BY YEAR(data_articolo) DESC, MONTH(data_articolo) DESC"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
response.write monthName(rs("mese")) & " " & rs("anno") & "
"
rs.moveNext
loop
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>