Listing directory from database in order and showing sub folders and files. Classic ASP

I know there are solutions out there for showing a windows directory of folders and files but mine is from a virtual directory within a database.

I have it so far that when you click a show me button it shows the directory path you are in

e.g.

folder 1.1.1

folder 1.1

fold开发者_运维知识库er 1

it displays in this order but i want it to display the main directory at the top. I would also like to be able to make the list of files clickable so that you can go straight to a specific file or folder when you click the show me button to make it easier for users to find the file they want. Is it possible to display sub-directories without been inside them?

My code for displaying the directory path you are in is:

dim previousPos 
previousPos = 0
dim html
html = ""


    if not test.BOF then

do while not objRsU.EOF

'if previousPos = (test.Fields(2)) then
response.Write html & "<br />"
html = ""

'else

html = test.Fields(0) & "\" & html

'end if

previousPos = test.Fields(2)

test.MoveNext
loop
end if


set test =nothing
set try =nothing



ListFolderContents Server.MapPath("/"), 0 

sub ListFolderContents(path, level)     

    dim fs, folder, file, item, subFolders     
    set fs = CreateObject("Scripting.FileSystemObject")     
    set folder = fs.GetFolder(path)      
    if folder.SubFolders.Count > 0 or folder.Files.Count > 0 then         

    'Display the target folder and info.         
    if level > 3     then             
    Response.Write("<h2>"& folder.Name &"</h2>" & html)         
    end if  

    'Display a list of sub folders.         
    for each item in folder.SubFolders             
    ListFolderContents item.Path, level  + 1
    next          

    'Display a list of files.

     Response.Write("<a<ul></a>" & html)      
     for each item in folder.Files
     Response.Write("<li><a href=""" & test.Name & """>" & try.Name & "</a></li>")
    next         
    Response.Write("</ul>" & html)


    end if 
end sub

This second part of the code displays the Main folder of the directory.

Any help would be very much appreciated.

Thanks

---

Why don't you just use something like this instead? It supports Classic ASP.

http://ckfinder.com/