Udskrivning af filnavne

Jeg skulle gerne udskrive alle filnavne der kommer gennem denne løkke så de kan blive skrevet i min access database. Er der nogen der ved hvordan det skal se ud? indtilvedere er jeg kommet frem til dette:

<%

filepath = ""

For Each File in Upload.Files
filepath = File.Filename & " "
Next

filearr = split(filepath(i)," ")
Response.Write filearr & "<BR>"
%>

På forhånd tak for hjælpen ;o)