Ora...
se provo a fare un loop mi viene un errore 500.

Dim objRs, sql

sql="select Domanda1, COUNT(*) AS totale FROM TbDomande GROUP BY DOMANDA1"



Do Until objRs.EOF

Set ObjRs =Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

response.write objRs("totale")
ObjRs.MoveNext
Loop


ed infatti non credo di aver capito fino in fondo...
il loop di cui parli è un ciclo per cosa? per splittare le voci di ogni tipologia di recordset?