Contents of displayDirectory.asp

<html>
<head>
<title>Source Files</title>
</head>
<body>

<%
dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables( "PATH_INFO")
strPhysicalPath = Server.MapPath( strPathInfo)

dim qq, q
qq = chr( 34)
q = chr( 39)

dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = createObject( "scripting.fileSystemObject")

set objFile = objFSO.GetFile( strPhysicalPath)
set objFolder = objFile.parentFolder
set objFolderContents = objFolder.Files
%>

<p><input type="button" name="back" value="Return" onClick="history.back()"><br /><br /><hr /></p>
<table cellpadding="5">
<tr align="center">
<th align="left">File Name</th>
<th>File Size</th>
<th>Last Modified</th>
</tr>
<%
for each objFileItem in objFolderContents
    if inStr( objFileItem,".bak") = 0 and inStr( objFileItem,".mdb") = 0 then
     response.write "<tr><td align=left>"
     response.write "<a href=" & qq & "displaysource.asp?filename=" & objFileItem.Name & qq & ">" & objFileItem.Name & "</ a>"
     response.write "</td><td align=right>"
     response.write objFileItem.Size
     response.write "</td><td align=right>"
     response.write objFileItem.DateLastModified
     response.write "</td></tr>"
    end if
next
%>

</table>

<br />
<hr />
<p><input type="button" name="back" value="Return" onClick="history.back()"></p>

</body>
</html>