codice:
    <%	
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Visa = "SELECT ID, News_Titolo, News_Sottotitolo, Year(News_data) as anno, Month(News_data) as mese  FROM News WHERE News_Tipo ='iniziative' group by ID, News_Titolo, News_Sottotitolo, 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 %>
	<%Response.Write(MonthName(RecSet("mese")&""))%><%Response.Write(RecSet("anno")&"")%>
<div align="left"><div id="barlink">
        <a href="news/dettagli.asp?ID=<% =RecSet("ID") %>">
		<% =RecSet("News_Titolo") %>

		<% =RecSet("News_Sottotitolo") %></a>
        

</div>
  <%	RecSet.MoveNext
	Loop
	RecSet.Close %></div>
Con il codice sopra riportato vorrei fare in modo che nella pagina che vado a visualizzare si vedano i risultati della query in questo modo:

dicembre 2004
articolo1
articolo2
novembre 2004
articolox
articoloy
al momento il risultato che ottengo è invece:
dicembre 2004
articolo1
dicembre 2004
articolo2
novembre 2004
articolox
novembre 2004
articoloy

con una inutile ripetizione di testo