un'altra piccola modifica ed il risultato è il seguente:

12 2004 2
9 2004 7
6 2004 3
5 2004 4
4 2004 1
12 2003 2
11 2003 2
0
il codice ora è così:

codice:
			<%
				Set objConn = Server.CreateObject("ADODB.Connection")
				objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb")
				Dim Visa
				Set RecSet = Server.CreateObject("ADODB.Recordset")
				Visa = "select Count(News_data) AS numArt, Year(News_data) as anno, Month(News_data) as mese from infogio group by Year(News_data), Month(News_data) order by Year(News_data) DESC, Month(News_data) DESC" 
				RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic
				do Until RecSet.EOF %>
<a href="newsletter.asp?strdata=<%=RecSet.Fields("mese") & ""%>
&amp;anno=<%=RecSet.Fields("anno")%>">
<%Response.Write(RecSet("mese")&"")%>
<%=RecSet("anno")%></a>
<span class="evidenza"><% =RecSet("numArt") %></span>