<% Call incFile(getTemplate(), "Header") Call writePageNavigation("" & Application(getLang() & "_strJBS_00060") & "", Application(getLang() & "_strJBS_02600"), "", "") Dim strFolder strSubFolder = Request("SubFolder") %>

<% If Len(Session("JBSX_Update")) <> 0 Then %> <% Session("JBSX_Update") = "" Session("JBSX_UpdateMessage") = "" End if %>
<% Dim strFormFldCreateFolderStatus : strFormFldCreateFolderStatus = "" Dim strCreateFolderMessage : strCreateFolderMessage = "" Dim strFormFldDeleteFolderStatus : strFormFldDeleteFolderStatus = "" Dim strDeleteFolderMessage : strDeleteFolderMessage = "" Dim IconCreateFolderStatus : IconCreateFolderStatus = "" Dim IconDeleteFolderStatus : IconDeleteFolderStatus = "" IF Application("JBSX_sSettings_UploadIsEnable") = "False" THEN strFormFldCreateFolderStatus = " style=""background-color: #F3F3F3;"" disabled" strCreateFolderMessage = "(Function disabled)" IconCreateFolderStatus = "_alpha" strFormFldDeleteFolderStatus = " style=""background-color: #F3F3F3;"" disabled" strDeleteFolderMessage = "(" & Application(getLang() & "_strJBS_02780") & ")" IconDeleteFolderStatus = "_alpha" ELSE If Application("JBSX_sSettings_UploadIsEnable") = "True" AND getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsCreateFolder")) = "False" Then strFormFldCreateFolderStatus = " style=""background-color: #F3F3F3;"" disabled" strCreateFolderMessage = "(" & Application(getLang() & "_strJBS_01640") & ")" IconCreateFolderStatus = "_alpha" End If If Application("JBSX_sSettings_UploadIsEnable") = "True" AND getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsDeleteFolder")) = "False" Then strFormFldDeleteFolderStatus = " style=""background-color: #F3F3F3;"" disabled" strDeleteFolderMessage = "(" & Application(getLang() & "_strJBS_01640") & ")" IconDeleteFolderStatus = "_alpha" End If END IF %>
 
 :: <% = Application(getLang() & "_strJBS_02700") %> ::  <% = Application(getLang() & "_strJBS_02740") %>     >  <% IF strCreateFolderMessage <> "" THEN Response.Write strCreateFolderMessage ELSE %> " name="B1"> <% END IF %>
   
 :: <% = Application(getLang() & "_strJBS_02720") %> ::  <% = Application(getLang() & "_strJBS_02730") %>     <%=WriteSubFolderSelectList(strSubFolder,strFormFldDeleteFolderStatus)%>  <% IF strDeleteFolderMessage <> "" THEN Response.Write strDeleteFolderMessage ELSE %> " name="B1" onclick="return confirm('<% = Application(getLang() & "_strJBS_01320") %>?');"> <% END IF %>
:: <% = Application(getLang() & "_strJBS_02600") %>  :: <% Dim strFormFldUploadFilesStatus : strFormFldUploadFilesStatus = "" Dim strUploadFilesMessage : strUploadFilesMessage = "" Dim IconUploadStatus : IconUploadStatus = "" If Application("JBSX_sSettings_UploadIsEnable") = "False" THEN strFormFldUploadFilesStatus = " style=""background-color: #F3F3F3;"" disabled" strUploadFilesMessage = "(" & Application(getLang() & "_strJBS_02780") & ")" IconUploadStatus = "_alpha" ElseIf Application("JBSX_sSettings_UploadIsEnable") = "True" AND getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsUploadBannerImg")) = "False" Then strFormFldUploadFilesStatus = " style=""background-color: #F3F3F3;"" disabled" strUploadFilesMessage = "(" & Application(getLang() & "_strJBS_01640") & ")" IconUploadStatus = "_alpha" Else strFormFldUploadFilesStatus = "" strUploadFilesMessage = "" IconUploadStatus = "" End If %> <% For i = 1 To Application("JBSX_sSettings_UploadFilesLimit") %> <% Next %>
 <% = Application(getLang() & "_strJBS_02730") %>     <%=WriteSubFolderSelectList(strSubFolder,strFormFldUploadFilesStatus)%>
<% = Application(getLang() & "_strJBS_02590") %> <%=i%>:   > >
<% = Application(getLang() & "_strJBS_02880") %>:  <%=Application("JBSX_sSettings_MaxFileSize")%>kB <% IF strUploadFilesMessage <> "" THEN Response.Write strUploadFilesMessage ELSE %> "> <% END IF %>
<% = Application(getLang() & "_strJBS_02850") %>:  <%=Application("JBSX_sSettings_ValidFileType")%>
 
  <% = Application(getLang() & "_strJBS_02750") %>  <%=WriteSubFolderSelectList(strSubFolder,empty)%>  " name="B1">
  
<% IF strSubFolder <> "" THEN %>
    <%=strSubFolder%>
<% Dim C : C = 0 Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set F = objFSO.GetFolder(Server.mappath("/JBSX/upload/images_files/" & strSubFolder )) For Each File in F.Files C = C + 1 %> <% Next If C = 0 Then %> <%End If%>
 <% = Application(getLang() & "_strJBS_02830") %>  <% = Application(getLang() & "_strJBS_02820") %> <% = Application(getLang() & "_strJBS_02870") %> <% = Application(getLang() & "_strJBS_02840") %>  <% = Application(getLang() & "_strJBS_02810") %> <% = Application(getLang() & "_strJBS_01610") %>
- View image -  <% =File.Name %>  <% =File.DateLastModified %> <% =Round((File.Size / 1024), 2) %> kB <% =right(File.Name, len(File.Name)-instrRev(File.Name,".")) %>  /JBSX/upload/images_files/<%=strSubFolder%>/<%=File.Name%>" size="50">   <% If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsRenameBannerImg")) = "True" THEN %> :<%=File.Name%>. <% = Application(getLang() & "_strJBS_02630") %>','<%=File.Name%>'));"> - " alt=" - <% = Application(getLang() & "_strJBS_02620") %> - " border="0" src="../img/icon_rename_file.gif"> <% Else %> - <% = Application(getLang() & - " border="0" src="../img/icon_rename_file_alpha.gif"> <% End If If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsMoveBannerImg")) = "True" THEN %> :<%=File.Name%> : <% = Application(getLang() & "_strJBS_02690") %> (<%=strSubFolder%>). <% = Application(getLang() & "_strJBS_02910") %>: ','<%=strSubFolder%>'));"> - <% = Application(getLang() & - " border="0" src="../img/icon_move_file.gif"> <% Else %> - <% = Application(getLang() & - " border="0" src="../img/icon_move_file_alpha.gif"> <% End If If getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsDeleteBannerImg")) = "True" THEN %> ?');"> - <% = Application(getLang() & - " border="0" src="../img/icon_delete_file.gif"> <% Else %> - <% = Application(getLang() & - " border="0" src="../img/icon_delete_file_alpha.gif"> <% End If %>
 <% = Application(getLang() & "_strJBS_02760") %>!
<% END IF Set objFSO = Nothing : Set objFolder = Nothing : Set F = Nothing Call incFile(getTemplate(), "Bottom") %>