Hvordan sorterer jeg her?

Jeg har følgende:

        Public sub ExportMember2()
            Dim oNodeList, Item           
            objXML.load(MEMBER_PATH)
           
            Response.Write "<table><tr valign=""middle"">"
            Response.Write "<td><img src=""media/print.gif""></td><td><a href=""java script:window.print()"">Print</a><td>"
            Response.Write "</tr></table><br>"
            Response.Write "<table border=""0"" cellspacing=""2"" cellpadding=""2"">"
            Response.Write "<tr>"
            Response.Write "<td><b>Navn:</b></td><td><b>E-mail:</b></td><td><b>Telefon:</b></td><td><b>Mobil:</b></td>" & vbCrLf       
            Response.Write "</tr>"

            set oNodeList = objXML.selectNodes("members/member")
            for each item in oNodeList
           
            Response.Write "<tr>"
            Response.Write "<td>" & item.selectsinglenode("pseudo").text & "</td>"
            Response.Write "<td><a href='mailto:" & item.selectsinglenode("email").text & "'>" & item.selectsinglenode("email").text & "</a></td>"
            Response.Write "<td>" & item.selectsinglenode("firmphone").text & "</td>"
            Response.Write "<td>" & item.selectsinglenode("firmmobil").text & "</td>"
            Response.Write "</tr>"
            next   
            Response.Write "</table><br>"
           
        End sub

Men outputtet er ikke sorteret! Ville gerne sorterer på "pseudo" hvordan gør jeg det?

Fomse:-)