Sortering efter Antal

Denna funktion skall räkna hur många gången av 54 ett namn "nick" förekommer i en databas. Så här ser koden ut.

Nu har jag så den skriver Ut:

Nickname - Procent av 54 - Antal av 54

Och den skall sortera efter Antal eller Procent Nu sorterar den efter Nick (a-z).

Hur skall Order By kommandot se ut?

Set ConnObj = SErver.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
ConnObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lost.mdb")
SQL = "Select distinct (Nick) from lost"
Set Rs = ConnObj.Execute(SQL)
Do Until Rs.EOF %>

<% CountSQL = "Select Count(*) AS nCount from lost Where Nick = '"& Rs("Nick") &"'"

Set antal = ConnObj.Execute(CountSQL)
Do Until antal.EOF %>

                  \<%Response.write Rs("Nick") %\> 

                  \<% Procent = antal("nCount")/54\*100 %\>
                  \<% =round(Procent,2) %\>
                  \<% Response.write antal("nCount") %\>

              \<% 
antal.MoveNext
Loop

Rs.MoveNext
Loop
ConnObj.Close
%>

Tack på förhand !!

Varifrån kommer 54?

Set ConnObj = SErver.CreateObject("ADODB.Connection")

ConnObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lost.mdb")
SQL = "Select count(*) as nCount,nick from lost group by nick order by 1 desc"
Set Rs = ConnObj.Execute(SQL)
Do Until Rs.EOF

Response.write Rs("Nick")
Procent = rs("nCount")/54*100 
response.write round(Procent,2) 
Response.write rs("nCount") 

rs.MoveNext
Loop
ConnObj.Close
%>

Frågan kommer att för varje nick returnera antalet förekomster sorterat så de nick som har flest förekomster kommer först.

Tack så mycket för hjälpen.

54 är bara där. :birp