<%
Set fso = server.CreateObject("Scripting.FileSystemObject")
aPath = Request.ServerVariables("Path_Translated")
aPath = left(aPath,instrrev(Request.ServerVariables("Path_Translated"),""))

Sub Files(inFolder)
For each item in fso.GetFolder(inFolder).Files
response.Write("<br>"& item)
Next

For each items in fso.GetFolder(inFolder).SubFolders
call Files(items)
Next

End Sub

Files(aPath)
%>