<!--#include virtual="/JBSX/include/config.asp"-->
<!--#include virtual="/JBSX/include/function.asp"-->
<!--#include virtual="/JBSX/include/settings.asp"-->

<%
Response.Expires=0
Response.Buffer = TRUE
Sub SubCreateNewFolder
IF Request("NewFolderName") <> "" THEN
Dim NewFolderName : NewFolderName = Request("NewFolderName")
   response.write NewFolderName & "<br>"
   response.write Application("JBSX_sSettings_UploadPath") &  NewFolderName
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(Server.mappath(Application("JBSX_sSettings_UploadPath") & NewFolderName)) = false Then
   FSO.CreateFolder(Server.mappath(Application("JBSX_sSettings_UploadPath") & NewFolderName))

Session("JBSX_Update") = "True"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02980") & "!"
Else
Session("JBSX_Update") = "False"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02970") & "!"
End If
set FSO = Nothing
ELSE
Session("JBSX_Update") = "False"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02940") & "!"
END IF
strRedirectUrl = "bannerLibrary.asp"
Response.Redirect (strRedirectUrl)
End Sub


Sub SubRenameFile
IF ((Request("NewFileName") <> null) Or Request("NewFileName") <> "null") Then
Dim SubFolder : SubFolder = Request("SubFolder")
Dim CurrentFileName : CurrentFileName = Request("CurrentFileName")
Dim NewFileName : NewFileName = trim(Request("NewFileName"))
Dim strCurrentFileName, strNewFileName
Dim X, t
Dim strValidFileType : strValidFileType = Application("JBSX_sSettings_ValidFileType")
Dim arrValidFileType : arrValidFileType = Split(strValidFileType,",")
		Filetype = right(NewFileName, len(NewFileName)-instrRev(NewFileName,"."))
		Filetype = lcase(Filetype)
		X = "False"
		For t = 0 To Ubound(arrValidFileType)
		if X = "True" then exit For
		if Filetype = lcase(arrValidFileType(t)) then X = "True"
		Next
		
		If X = "False" Then
		Session("JBSX_Update") = "False"
		Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02900") & "!"
		
	Else
	
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	strCurrentFileName = Server.MapPath(Application("JBSX_sSettings_UploadPath") & SubFolder & "/" & CurrentFileName)
	strNewFileName = Server.MapPath(Application("JBSX_sSettings_UploadPath") & SubFolder & "/" & NewFileName)

		FSO.MoveFile strCurrentFileName, strNewFileName
		
Session("JBSX_Update") = "True"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_03010") & "!"
End If

ELSE
Session("JBSX_Update") = "False"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02950") & "!"				
END IF
strRedirectUrl = "bannerLibrary.asp?SubFolder=" & SubFolder
Response.Redirect (strRedirectUrl)
End Sub

Sub SubMoveFile

IF ((Request("MoveToFolder") <> null) Or Request("MoveToFolder") <> "null") Then
Dim SubFolder : SubFolder = Request("MoveToFolder")
Dim CurrentFolder : CurrentFolder = Request("CurrentFolder")
Dim FileName : FileName = Request("FileName")
Dim MoveToFolder : MoveToFolder = trim(Request("MoveToFolder"))

	Set FSO = CreateObject("Scripting.FileSystemObject") 
	strCurrentFolder = Server.MapPath(Application("JBSX_sSettings_UploadPath") & CurrentFolder & "/" & FileName)
	
If FSO.FolderExists(Server.mappath(Application("JBSX_sSettings_UploadPath") & MoveToFolder)) = false Then
   FSO.CreateFolder(Server.mappath(Application("JBSX_sSettings_UploadPath") & MoveToFolder))
End If
	strMoveToFolder = Server.MapPath("/JBSX/upload/images_files/" & MoveToFolder & "/" & FileName)
FSO.MoveFile strCurrentFolder, strMoveToFolder

Session("JBSX_Update") = "True"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_03000") & "!"

ELSE
Session("JBSX_Update") = "False"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02930") & "!"
END IF

strRedirectUrl = "bannerLibrary.asp?SubFolder=" & SubFolder
Response.Redirect (strRedirectUrl)
End Sub


Sub SubDeleteFolder
IF Request("SubFolder") <> "" THEN
Dim DeleteFolderName : DeleteFolderName = Request("SubFolder")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    FSO.DeleteFolder(Server.mappath(Application("JBSX_sSettings_UploadPath") & DeleteFolderName))
Session("JBSX_Update") = "True"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_03030") & "!"
set FSO = Nothing
ELSE
Session("JBSX_Update") = "False"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_03040") & "!"
END IF
strRedirectUrl = "bannerLibrary.asp"
Response.Redirect (strRedirectUrl)
End Sub


Sub SubDeleteFile
IF ((Request("SubFolder") <> "") AND Request("DeleteFileName") <> "") THEN
Dim SubFolder : SubFolder = Request("SubFolder")
Dim DeleteFileName : DeleteFileName = Request("DeleteFileName")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    FSO.DeleteFile(Server.mappath(Application("JBSX_sSettings_UploadPath") & SubFolder & "/" & DeleteFileName))
Session("JBSX_Update") = "True"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_03020") & "!"
set FSO = Nothing
ELSE
Session("JBSX_Update") = "False"
Session("JBSX_UpdateMessage") = Application(getLang() & "_strJBS_02960") & "!"
END IF
strRedirectUrl = "bannerLibrary.asp?SubFolder=" & SubFolder
Response.Redirect (strRedirectUrl)
End Sub
%>


<%
    select case Request("Action")
		case "CreateNewFolder"
			Call SubCreateNewFolder
		case "RenameFile"
			Call SubRenameFile
		case "MoveFile"
			Call SubMoveFile
		case "DeleteFolder"
			Call SubDeleteFolder
		case "DeleteFile"
			Call SubDeleteFile
	End Select
	
%>