%
response.Write("
Images
" & vbcrlf)
StrPhysicalPath = Replace(Request.Servervariables("PATH_TRANSLATED"),"\default.asp","")
'response.write("Path: " & StrPhysicalPath & "
" & vbcrlf)
response.write("Index of RTH Images
" & vbcrlf)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(StrPhysicalPath)
Set objFolderContents = objFolder.Files
response.write("" & vbcrlf)
For Each Item in objFolderContents
if item.name <> "default.asp" then
response.write(" - " & item.name & "
" & vbcrlf)
end if
Next 'Item
response.write("
" & vbcrlf)
set objFolder = nothing
set objFSO = nothing
%>