codice:
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mapPath("\samples\mdb-database\db.mdb")
sql = "SELECT DISTINCT(sport_utente) AS sport, COUNT(id_utente) AS persone FROM tabella GROUP BY sport_utente ORDER BY COUNT(id_utente) DESC"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
response.write rs("sport") & " (" & rs("persone") & ")
"
rs.moveNext
loop
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>