Top 5 i % rækkefølge

Hejsa

Hvad skal jeg ændre for af få denne top 5 afstemning til at stå i rækkefølgen % i stedet for i alfabetisk rækkefølge?

---------------------------------------

<%
Function GetStats()
    Dim S,C
    Dim A(4)
    Dim B(4)
    s = -1
    'createdataobject server.mappath("data/film.mdb")
    createdataobject "d:\home\dirchpasserdk\db\film.mdb"
        Set rs = DBConn.Execute ("SELECT * FROM film WHERE tilladStemme = 1;")
        'opentable "SELECT dvdcounter,Titel FROM Film ORDER BY dvdcounter DESC;"
            do while not (rs.eof or rs.bof)
                if not isNull(rs("dvdcounter")) then
                    if rs("dvdcounter") > 0 then
                        s = s + 1
                        if s <= ubound(a) then
                            a(s) = rs("Titel")
                            b(s) = rs("dvdcounter")
                        end if
                    end if
                end if
                if not isNull(rs("dvdcounter")) then
                    c = c + rs("dvdcounter")
                end if
                rs.movenext
            loop
        'closetable
    closedataobject
    GetStats = GetStats & "<table style=""font-family: Verdana; font-size: 8pt"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
    for i=0 to ubound(a)
        if p = " bgcolor = ""#DEDFBD""" then
            p = ""
        else
            p = " bgcolor = ""#DEDFBD"""
        end if
        if b(i) > 0 then
            GetStats = GetStats & "<tr" & p & ">" & vbcrlf
            GetStats = GetStats & "<td>" & vbcrlf
            GetStats = GetStats & a(i) & "&nbsp;&nbsp;" & vbcrlf
            GetStats = GetStats & "</td>" & vbcrlf
            GetStats = GetStats & "<td>" & vbcrlf
            GetStats = GetStats & formatNumber(((100/c) * b(i)),2) & "%&nbsp;&nbsp;" & vbcrlf
            GetStats = GetStats & "</td>" & vbcrlf
            GetStats = GetStats & "<td>" & vbcrlf
            GetStats = GetStats & "(" & b(i) & " stemmer)" & vbcrlf
            GetStats = GetStats & "</td>" & vbcrlf
            GetStats = GetStats & "</tr>" & vbcrlf
        end if
    next
    GetStats = GetStats & "<tr><td colspan=""3"">&nbsp;</td>" & vbcrlf
    GetStats = GetStats & "<tr><td align=""center"" colspan=""3"">" & c & " stemmer ialt.</td></tr>" & vbcrlf
    GetStats = GetStats & "</table>" & vbcrlf
   
End Function

%>