Udskriv navnet på filer i en mappe

<%  Function ShowFolderList()
    folderspec = server.mappath(".\")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
        tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</a><br>"
    Next
    ShowFolderList = tmp
    End Function
    response.write showfolderlist()
%>

Tak for det, men hvordan indstætter jeg posterne enkeltvis i databasen. jeg havde forestillet mig noget i stil med nedenstående, men det virker ikke:

<%  Function ShowFolderList()
    folderspec = server.mappath(".\")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
        "INDSÆT FILE.NAME I DATABASEN"
    Next
    ShowFolderList = tmp
    End Function
    %>

hmm.. det har jeg ikke prøvet før, men jeg forestiller mig at du skal åbne databasen inden og så
    For Each file in foldercollection
        sql="insert into DB (databasefeltet) values('"&file.name&"')"
        conn.execute(sql)
    Next

Selvfølgelig :)
Tak for hurtig svar.

no prob.. det er jo derfor vi er her ;o)

:)