<% Set OBJdbConnection = Server.CreateObject("adodb.connection") OBJdbConnection.Open Application("DSN") sql="select id_votato,count(*) as totale,uname from marcellomm_.nuke_reputazione join marcellomm_.nuke_users on (marcellomm_.nuke_users.uid=marcellomm_.nuke_reputazione.id_votato) group by id_votato order by totale desc " set rs=OBJdbConnection.execute (sql) rs.movefirst do while not rs.eof id_votato=rs.fields("id_votato").value totale=rs.fields("totale").value username=rs.fields("uname").value n=n+1 %> <%=n%> - <%=username%> + <%=totale%>
<% rs.movenext loop rs.close set rs=nothing OBJdbConnection.close set OBJdbConnection=nothing %>