select IdNazione, count(*) as partecipanti
from NomeTabelle
group by IdNazione
order by 2


response.write ObjRS("IdNazione") & " ... " & ObjRS("partecipanti")