<% strPathInfo = Request.ServerVariables("Path_Info") 'gets virtual path to file strPhyPath = Server.MapPath(strPathInfo) 'gets physical path, required for FileSystemobjects set objFso = server.createObject("Scripting.FileSystemObject") set objFile = objFso.GetFile(strPhyPath) 'to get info on file set objFolder = objFile.ParentFolder 'gets info about folder set objFolderContents = objFolder.Files %> Contents of Folder

Contents of Folder <% =strPathInfo %>

Total Visitors to Site: <% =Application("intVisitors") %>
Current visitors to Site: <%=Application("intCurrent") %>
!-- Is there a property/method to give you logical path to directory --> <% For Each objFileItem in objFolderContents Response.Write "" Response.Write "" Response.Write "" Next %>
File Name Size Date Last Modified
" REsponse.Write objFileItem.Name & "" & objFileItem.Size & "" & objFileItem.DateLastModified & "