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 %>