FSO og Sort

Mit script

for each BrowsedFile in BrowseContents.Files
    FileExtBegPos = InStrRev(BrowsedFile.Name, ".")
    FileExtTotal = len(BrowsedFile.Name)
    FileExt = Lcase(Right(BrowsedFile.Name, FileExtTotal - FileExtBegPos))
   
        If FileExt = "asp" then
        'asp filer vises ikke
        Else
       
                select case FileExt
                case "db"
                FileIcon = "access.gif"
                case "xls"
                FileIcon = "exel.gif"
                case "mp3", "wav", "rm"
                FileIcon = "audio.gif"   
                case "fla", "swf"
                FileIcon = "flash.gif"   
                case "jpg", "jpeg", "gif", "png", "bmp", "psd"
                FileIcon = "image.gif"   
                case "mov"
                FileIcon = "mov.gif"   
                case "pdf"
                FileIcon = "pdf.gif"   
                case "ppt"
                FileIcon = "powerpoint.gif"   
                case "avi", "wmv", "mpg", "mpeg", "wma"
                FileIcon = "video.gif"
                case "doc", "txt"
                FileIcon = "word.gif"
                case "zip", "rar", "tar", "cab"
                FileIcon = "zip.gif"
                case "exe", "com"
                FileIcon = "exe.gif"   
                case else
                FileIcon = "ukendt.gif"
                end select
                %>
                <TABLE WIDTH="100%" BORDER="0"><TR>
                <TD WIDTH="38" align="center" valign="middle"><IMG SRC="browser_images/<%=FileIcon%>"></TD><TD WIDTH="" valign="top"70%""><%=BrowsedFile.Name%><br>
                  <A HREF="<%=CurrentDir%>/<%=BrowsedFile.Name%>">Vis</A>                  <BR>
                </TD><TD WIDTH="" align="right"25%""><DIV ALIGN=""RIGHT""><%=BrowsedFile.Size \ 1024%> KB</DIV></TD></TR></TABLE>
                <%
                ContainsSomething = "True"
       
        End If
   
    next
   
    if ContainsSomething <> "True" then
    Response.Write "<TABLE WIDTH=""100%""><TR><TD>There is nothing in this directory.</TD></TR></TABLE>"
    end if


Hvordan kan jeg lave en sotering på case så eks alle billeder bliver vist i en lang række og ikke blandet sammen som nu ?