Prova così

select CAMPO, count(CAMPO) as xxx, Nome, Cognome
from TABELLA
group by CAMPO, Nome, Cognome
order by count(CAMPO) desc

No ho la struttura del db sotto mano però ho fatto una cosa simile(classifica dei 10 utenti con più messaggi) nella message board che sto realizzando.
Se non funziona potresti mandarmi il modello del db per email così riesco a provare: OasisAD@Libero.it

Ciao

Le domandi che ti poni sono due diverse, comunque se non posti la struttura delle tabelle (in particolare per come hai legato gli iscritti a coloro che fanno iscrivere), solo gli indovini potranno aiutarti.
Ciao
Paolo

Ehi, uomo di poca fede, prendi carta e penna e scrivi:

1. Nel mio db Access ho una tabella Utenti con i campi:
-UserID
-Cognome
-Nome_
-UserPromoter
e ci metto un po' di dati di prova.

2. Nello stesso db creo una query di nome
"ConteggioPromoters" e ci ricopio questa clausola SQL:
<pre id=code><font face=courier size=2 id=code>
SELECT Count(UserPromoter) AS Promoters
FROM Utenti;
</font id=code></pre id=code>

3. Sempre nel db Access creo una query di nome
"TopPromoters" e ci ricopio questa clausola SQL:
<pre id=code><font face=courier size=2 id=code>
SELECT TOP 3 Utenti.UserID AS UserID, Utenti.Cognome AS Cognome, Utenti.Nome_ AS Nome, Count(Utenti_1.UserID) AS Promozioni
FROM Utenti INNER JOIN Utenti AS Utenti_1 ON Utenti.UserID = Utenti_1.UserPromoter
GROUP BY Utenti.UserID, Utenti.Cognome, Utenti.Nome_
ORDER BY Count(Utenti_1.UserID) DESC;
</font id=code></pre id=code>

4. Provo ad eseguire le query e vedo che funzionano. OHHHH.

5. In blocco note ricopio questo script:
<pre id=code><font face=courier size=2 id=code>

&lt;%
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")

strCnn="provider=Microsoft.Jet.OLEDB.4.0;data source=..."

cnn.Open strCnn
rst.Open "[ConteggioPromoters]", cnn

nPromoters=0
if not rst.EOF then
nPromoters=rst.Fields("Promoters")
response.write "Il numero di promoters è " & nPromoters & "&lt;BR&gt;"
else
response.write "Non vi sono promotori"
end if

rst.close

if nPromoters &gt; 0 then
strSQL="[TopPromoters]"
rst.open strSQL, cnn
if not rst.EOF then
response.write "I promotori sono " & "&lt;BR&gt;"
do until rst.EOF
response.write rst.Fields("UserID") & ": " & rst.Fields("Cognome") & " " & rst.Fields("Nome") & " " & rst.Fields("Promozioni")& " &lt;BR&gt;"
rst.movenext
loop
end if
end if
rst.close
cnn.close
set rst=nothing
set cnn=nothing
%&gt;
</font id=code></pre id=code>

6. Inserisco il database corretto nella stringa di connessione

7. Lo salvo e lo provo tramite web. (è gia testato)

8. Mo cospargo la testa di cenere e prometto
di non inserire mai più un topic con quella descrizione.

Ciao!
Paolo

Modificato - pdb on 21 Apr 2001 18:37:30