Sortering af Tal

dim A,B,C,Ar,Br,Cr,Asv,Bsv,Csv
A=0    'A skal være det største tal
B=0    'B skal være det næststørste (dog hvis A=B er B=A)
C=0    'C skal være det næststørste (dog hvis B=C er C=B)
Ar=0
Br=0
Cr=0
Asv=0  'skal indeholve Sumsvar for A
Bsv=0  'skal indeholve Sumsvar for B
Csv=0  'skal indeholve Sumsvar for C

For each Folder in objFolder.SubFolders
If Left(Folder.Name,1) <> "-" Then
   
    Response.Write "<tr><td><b>" & Folder.Name & "</b></td></tr>"

   
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath & "\" & Folder.Name)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
   
            Set Conn = Server.CreateObject("ADODB.Connection")
            Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\db\CarPolls.mdb")
            Set RS = Server.CreateObject("ADODB.Recordset")
            SQL = "Select * FROM poll where Car =" & "'cars/" & Folder.Name & "/" & objFileItem.Name & "'"
            RS.Open SQL, Conn, 3, 3
       
            Dim Sumsvar, Coolness
            Dim intRed, intGreen, intBlue, strColor
            Dim sv1, sv2, sv3, sv4, sv5, sv6
           
            if not RS.EOF then
                Sumsvar = RS("svar1") + RS("svar2") + RS("svar3") + RS("svar4") + RS("svar5") + RS("svar6")
                sv1 = RS("svar1") * 0 
                sv2 = RS("svar2") * 20
                sv3 = RS("svar3") * 40
                sv4 = RS("svar4") * 60
                sv5 = RS("svar5") * 80
                sv6 = RS("svar6") * 100
           
                If (sumsvar = 0) then sumsvar = 1
                Coolness = int((sv1 + sv2 + sv3 + sv4 + sv5 + sv6) / sumsvar)     
               
                if (coolness < 50) then
                    intRed         = int((2 * coolness / 100) * 255)
                    intGreen     = 255
                else
                    intRed         = 255
                intGreen     = int(((100 - coolness) / 100) * 255) * 2
                end if
                intBlue = 0
                strColor = "rgb(" & intRed & "," & intGreen & "," & intBlue & ")"
            else
                sumsvar = -1
            end if
            If sumsvar > 5 then
/// Her ønsker jeg sorteringen A>B>C>?

            end if
   
            Conn.Close
            Set Conn = Nothing
        Next
   
        Set objFSO = Nothing
          Response.Write "<tr><td>"
        Response.Write "<font color=""Gold"">" & Asv &" Votes / "& A & "%</font> <font color=""Silver"">" & Bsv & " Votes / " & B & "%</font> <font color=""Brass"">" & Csv & " Votes /" &  C & "%</font>"
          Response.Write "</tr></td>"
        A = 0
        B = 0
        C = 0
        Asv = 0
        Bsv = 0
        Csv = 0
               
    Set oFSO = nothing
End if
Next