|
<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("SCRIPT_NAME")
strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder =objFile.ParentFolder
Set objFolderContents = objFolder.Files
Response.Write(" ")
%>
|
