<% 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) set objFolder = nothing set objFSO = nothing %>