Vis filer i mappe
Er det muligt at få denne til at vise alt andet end asp, htm og html sider:<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
Response.Write("<a href=""#"" onclick=""java script:window.open('" & objFileItem.Name & "','popup','height=600,width=600,menubar=no,scrollbars=yes,toolbar=no,status=no,location=no');return false;"">" & objFileItem.Name & "<br></a>")
Next %>