codice:
<% 
SQL="SELECT * FROM listamesi " 
Set rs=Server.CreateObject("ADODB.Recordset") 

Set rs=Conn.Execute(SQL) 
while not rs.eof

mese = rs("mese")

sqlstring = "SELECT COUNT(mese) FROM tabella WHERE mese=" & mese
Set objRs = Conn.Execute(sqlstring)

tot_record = objRs(0)

response.write "Sono presenti " & tot_record & "ricorrenze per il mese " & mese & ""

objRs.Close
Set objRs = Nothing

%> 
<tr valign="middle"> 
<td width="78" height="15" valign="middle"> 

</td> 
<td width="207" height="15" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&anno=<%=rs("anno")%>"><%=rs("mese")%></font></td> 
<td colspan="2" height="15"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Anno <%=rs("anno")%></font> 
</td> 
</tr> 
<%rs.movenext 
wend%>
Forse ho capito. prova così.