<%
Dim uploadMessage
Dim Error
Dim C : C = 0
Dim strFileDeleted : strFileDeleted = "False"
intMaxSize = Application("JBSX_sSettings_MaxFileSize")
Dim strValidFileType : strValidFileType = Application("JBSX_sSettings_ValidFileType")
Dim arrValidFileType : arrValidFileType = Split(strValidFileType,",")
IF UploadRequest.Item("SubFolder").Item("Value") <> "" THEN
Dim SubFolder : SubFolder = UploadRequest.Item("SubFolder").Item("Value")
for each fobj in UploadRequest
uploadMessage = ""
Error = "False"
IF UploadRequest.Item(fobj).Item("FileName") <> "" then
C = C + 1
contentType = UploadRequest.Item(fobj).Item("ContentType")
filepathname = UploadRequest.Item(fobj).Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item(fobj).Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
If ScriptObject.FileExists(Server.mappath(Application("JBSX_sSettings_UploadPath") & SubFolder & "/" & filename)) Then
uploadMessage = " " & Application(getLang() & "_strJBS_02990") & "!"
Error = "True"
End If
If Error = "False" Then
Filetype = right(filename, len(filename)-instrRev(filename,"."))
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
Error = "True"
uploadMessage = " """ & Filetype & """" & Application(getLang() & "_strJBS_02900") & "!"
End If
End If
If Error = "False" Then
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(Application("JBSX_sSettings_UploadPath") & SubFolder & "/" & filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
Set chkFile = ScriptObject.getFile(Server.mappath(Application("JBSX_sSettings_UploadPath") & SubFolder & "/" & filename))
If Round((chkFile.Size / 1024), 3) < int(intMaxSize) then
uploadMessage = " " & Application(getLang() & "_strJBS_03190") & "!"
Response.Write "