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ì.