<% If IsAuthorizedBin(ROLE_ADMINISTRATOR) Then sUploadFolder = sAdminUploadFolder else sUploadFolder = sUserUploadFolder If sPseudo <> "" Then If bSingleUserUploadFolder Then sUploadFolder = CreateUserFolder(sUploadFolder, Cstr(iPseudoID)) end if end if End if If trim("" & Session("UploadFolder")) = "" Then Session("UploadFolder") = sUploadFolder End If Session("UploadField") = "" Session("UploadFile") = "" Session("MaxFileSize") = "default" Session("AllowExt") = "default" DoUpload sTitlePage = "Upload " & GetTranslation("LANG_FILE") & sResUp %> <% If sPseudo <> "" Then DisplayImageList(Session("UploadFolder")) Else CreateTable "Role", "", GetTranslation("LANG_MUST_HAVE_ROLE"), "" End If %>