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