vis indhold af mappe med links til hvad der end måtte være..

<%
Function ShowFolderList()
folderspec = server.mappath(\".\")
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
tmp = tmp & \"<a href=\'\" & file.name & \"\'>\" & file.name & \"</A><BR>\"
Next
ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

det her virker:
<%
Set FSO = Server.CreateObject
(\"Scripting.FileSystemObject\")
Set FileObject = FSO.GetFolder(Server.Mappath(\"din_sti_her\" & strType & \"/\"))
Set FileCollection = FileObject.Files

For Each File in FileCollection

  Response.Write \"<a href=\" & File.Name & \">\" & File.Name & \"</a>\"
  Response.Write \"<br>\"

Next

Set FileCollection = Nothing
Set FileObject = Nothing
Set FSO = Nothing
end if
%>