<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% strfolder = Request("folder") strimagedest = IMAGECONN & "/" & strfolder if strfolder <> vbnullstring then strfolder = replace(strfolder,"..","x") 'parent dir scanning is not allowed ImageConn = ImageConn & "/" & strfolder end if if strfolder <> vbnullstring then subfolder = "/" & strfolder else subfolder = "" end if Set FSO = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") Function URLSpace(s) URLSpace = replace(replace(s,"+","%2B")," ","+") End Function sub GenerateFolder() Set f = objFSO.GetFolder(server.mappath(ImageConn)) Set FileList = f.subFolders Set objFC = f.Files On Error Resume Next For Each fn In FileList 'emptyDir = False response.write("
  • ") if subfolder <> vbnullstring then response.write("" & fn.name & "") else response.write("" & fn.name & "") end if response.write("
    • ") fi = fi + 1 Next set objFSO = nothing end sub %>

    Album photo <% if Request("folder") <> "" then response.write(" - " & Request("folder")) %>

    		 <% response.write(" ") if (session("memLevel") >= LEVEL_EDITOR) then response.write("") end if %>
      <% GenerateFolder() %>