Verzeichnisse auslesen und die Dateien zum download anbieten

[Peter Anders]

Hallo Forum,

meine Frage wäre wie kann ich mein Verzeichnis online auslesen und die Dateien gleichzeitig zum download anbieten? Das mit Auslesen klappt ja ganz gut, aber die dann auch zum downloadanzubieten klappt nicht. So sieht mein Script aus, vielleicht erkennt da einer den Fehler?

<%
Dim objFileSys
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")

Dim objActFolder
Set objActFolder = objFileSys.GetFolder(server.MapPath("../") & "\download")

Dim objFile

Response.Write "<table border=""0"" width=""500"">" & vbCrLf

For each objFile in objActFolder.Files

Response.Write "<tr>" & vbCrLf
Response.Write "<td class=""text"">" & objFile.Name & "</td>"
Response.Write "<td><a class=""text"" href=" & objFile & " >" & _
      "Datei downloaden" & _
      "</a>" & _
      "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf

Next
Response.Write "</table>" & vbCrLf

Set objFile = Nothing
Set objActFolder = Nothing
Set objFileSys = Nothing
%>

Wenn ich jedoch auf dem localen server auf " Datei downloaden" klicke,funktionierts, wenn ich das online stelle, geht es nicht mehr.. komm nicht weiter..