Sortera, lite knepigare variant

Såhär ser koden ut som hämtar informationen om lagen:

   i = 0
   sql = "select * from dnLag order by distrikt, lagnamn"
   set rs = dbCom.Execute(sql)
   if not (rs.BOF and rs.EOF) then
     do while not rs.EOF
       set lagen(i) = new lagObj
       lagen(i).setData(rs.Fields("lagID").Value)
       i = i + 1
      rs.MoveNext
     loop
   end if

Och såhär ser koden ut som skriver informationen till webläsaren:

<a href="test.asp?id=<% = lagen(i).id %>"><% = "<b>" & lagen(i).lagnamn & "</b>" %></a>
<%= lagen(i).ResTotal
<%next%>

det jag vill göra är att sortera lagen på summan ResTotal och har gjort en call SorteraLag, men kommer inte på hur tusan jag ska få till det :) Så just nu är sub'en SorteraLag tom :(