visning af filer til download

jeg bruger selv:

function writefilelist(path,writeimg)

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(server.mappath(path))

  for each file in f.files
    if file.name<>"default.asp" then
      if (right(file.name,4)=".gif" or right(file.name,4)=".jpg") and writeimg then
        response.write "<img src=""" & path & file.name & """> "
      end if
      response.write "&nbsp;<b> &#155; <a href="""&path&file.name&""">" & file.name & " ("&(file.size+512)\1024&" kb)</a></b><br><br>"
    end if
  next
end function


herefter kan funktionen f.eks. kaldes med:
writefilelist "./",true

hvilket vil liste alle filer der ligger i den samme mappe som scriptet (undtaget sig selv) ... og vise billeder som et billede .. resten bare som et link til filen,

takker for hjælpen - det virker :-)