Sortering af Pull down menu ??

Dette stykke kode er en del af et forum, som jeg har DL, men problemet er at den sorterer efter \"CAT_ID\" og bagefter \"F_SUBJECT\" jeg vil gerne have så den sorterer efter \"F_SUBJECT\" \"F_SUBJECT\".

Hvordan gør jeg det ?

<!-- JUMP TO -->
    <form name=\"Stuff\">
    <font face=\"<% =strDefaultFontFace %>\" size=\"<% =strDefaultFontSize %>\"><b>Gå til:</b></font>
    <select name=\"SelectMenu\" size=\"1\" onchange=\"jumpTo(this)\">
      <option value=\"./\">Vælg forum</option>
&nbsp;
<!--    <select name=\"SelectMenu\" size=\"1\" onchange=\"jumpTo(document.Stuff.SelectMenu)\">--><%
    \'## Get all Forum Categories From DB
    strSql = \"SELECT \" & strTablePrefix & \"CATEGORY.CAT_ID, \" & strTablePrefix & \"CATEGORY.CAT_NAME \"
    strSql = strSql & \" FROM \" & strTablePrefix & \"CATEGORY\"

    set rsCat = my_conn.Execute (strSql)

    do until rsCat.eof \'## Grab the Categories.

        \'##  Build SQL to get forums via category
        \'## Forum_SQL
        strSql = \"SELECT \" & strTablePrefix & \"FORUM.FORUM_ID, \" & strTablePrefix & \"FORUM.F_TYPE, \" & strTablePrefix & \"FORUM.F_SUBJECT, \" & strTablePrefix & \"FORUM.F_URL, \" & strTablePrefix & \"FORUM.CAT_ID \"
        strSql = strSql & \" FROM \" & strTablePrefix & \"FORUM \"
        strSql = strSql & \" WHERE \" & strTablePrefix & \"FORUM.CAT_ID = \" & rsCat(\"CAT_ID\")
        strSql = strSql & \" ORDER BY \" & strTablePrefix & \"FORUM.F_SUBJECT ASC;\"

        set rsForum =  my_Conn.Execute (StrSql)

        if rsForum.eof or rsForum.bof then
            \'nothing
        else
            iNewCat = rsForum(\"CAT_ID\")
            iOldCat = 0
            do until rsForum.Eof
                if ChkForumAccess(rsForum(\"FORUM_ID\")) then
                    if iNewCat <> iOldCat Then
                        Response.Write \"      <option value=\'default.asp\'>\" & rsCat(\"CAT_NAME\") & \"</option>\" & vbCrLf
                        iOldCat = iNewCat
                    end if
                    if rsForum(\"F_TYPE\") = 0 then
                        Response.Write \"      <option value=\'forum.asp?FORUM_ID=\" & rsForum(\"FORUM_ID\") & \"&CAT_ID=\" & rsForum(\"CAT_ID\") & \"&Forum_Title=\" & ChkString(rsForum(\"F_SUBJECT\"),\"urlpath\") & \"\'\"
                    else
                        if rsForum(\"F_TYPE\") = 1 then
                            Response.Write \"      <option value=\'\" & rsForum(\"F_URL\") & \"\'\"
                        end if
                    end if
                    if rsForum(\"FORUM_ID\") = Request.Querystring(\"Forum_ID\") then
                        Response.Write(\" SELECTED\")
                    end if
                    Response.Write \">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\" & rsForum(\"F_SUBJECT\")& \"</option>\" & vbCrLf
                end if
                rsForum.MoveNext
            loop
        end if
        rsCat.MoveNext
    loop
%>
      <option value=\"\">&nbsp;--------------------
      <option value=\"<% =strHomeURL %>\">Hjem
      <option value=\"active.asp\">Aktiv emne
      <option value=\"faq.asp\">Ofte stillede spørgsmål (FAQ)
      <option value=\"members.asp\">Medlems information
      <option value=\"search.asp\">Søg på siden
    </select>
    </form>