Et godt ASP filupload program

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=293
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=430

Nu har jeg downloadet aspsmartupload...men vil gerne lave en fil som viser alle de filer der er inde i stien "aspSmartUpload/Upload/"...hvordan gør jeg det?

Bliver ikke mig der fortæller det når du afviser min tråd ;-)

Det er første gang at jeg prøver dette her forum. Det er nok derfor...jeg vil da med glæde uafvise dig igen (hvis man kan det)

Jeg har en fil "visfolder.asp"

<%   
Dir = "images/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(Dir))
Set objFiles = objFolder.Files

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 800 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
%>

<%
For Each Image In objFiles
intFile = intFile +1
    If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
        Response.Write Image.Name & "<br>"   
    End If
Next

Set objFS = Nothing
%>

Den ligger i http://www.tekken.dk/scripts/aspSmartUpload/visfolder.asp og når jeg går ind i den siger den:
Microsoft VBScript runtime error '800a004c'

Path not found

/scripts/aspSmartUpload/visfolder.asp, line 4

Filerne som jeg skal have frem ligger i http://www.tekken.dk/aspSmartUpload/Upload/

Dir = "images/"
Skal rettes til.

Dir = "/"

Lig evt din http://www.tekken.dk/visfolder.asp her
Dir = "aspSmartUpload/Upload/"
Skal der så stå.

Tusind tak indtil videre...Det virker nu...men nu har jeg endnu et spørgsmål..når jeg går ind på siden viser den kun en liste over filer.....jeg vil gerne ha' at hver fil skal være et link sådan at man bare kan trykke og så åbner billedet/filen

Indryk bare et svar i stedet...jeg skal nok acceptere den...

Response.Write "<a href="aspSmartUpload/Upload/" & Image.Name & '> & Image.Name & "</a><br>" Hvad er der galt her?

Så gør jeg det..!