Hjælp til denne stump kode

Hej Eksperter!

Jeg er igang med at lave et script som kan vise filer i en mappe...

Mit problem er bare, der hvor scriptet ligger er på admin.disco-mafiaen.com og den skal gerne vis noget der ligger på www.disco-mafiaen.com/filer. Hvordan kan jeg gøre det?

Det er den her kode jeg bruger:

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if


Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))

Dim SubFolders
Set SubFolders = myFolder.SubFolders

Response.Write "Foldere i mappen:<br><br>"

For Each folder in subFolders
    Response.Write "<a href='?dir=" & folder.Name & "'>" & folder.Name & "</a><br><br>"
Next

Dim files
Set files = myFolder.Files

Response.Write "Filer i mappen:<br><br>"

For Each file in files
    Response.Write "<a href='" & file.Name & "'>" & file.Name & "</a><br>"
    Response.Write "Type: " & file.Type & "<br>"
    Response.Write "Size: " & file.Size & "<br><br>"
Next

Set files = Nothing
Set subFolders = Nothing
Set myFolder = Nothing
Set myFso = Nothing

%>


På forhånd tak