<% Dim Uploader, File, nome_file, strMode, msg Set Uploader = New FileUploader Uploader.maxFileSize = maxsizefile Uploader.fileExt = kinkoffile Uploader.Upload() strMode = Uploader.Form("strMode") msg = "" strPath2 = Server.MapPath(strPathShort) & "\" If Uploader.Files.Count = 0 Then If Uploader.Error Then msg = "" & strLangUploadError & ":

" & Uploader.ErrorDesc End if msg = msg & "

" & strLangUploadErrorNoFileSend & "

" Else If Uploader.Error Then msg = "" & strLangUploadError & ":

" & Uploader.ErrorDesc & "




" End if For Each File In Uploader.Files.Items File.SaveToDisk strPath2 nome_file = File.FileName If Not IsImage(StrPathShort & File.FileName) Then msg = "" & strLangUploadError & ":

" & File.FileName & " " & strLangUploadErrorNoImage & "




" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(strPath2 & File.FileName) Then fso.DeleteFile(strPath2 & File.FileName) Set fso = Nothing End if Next End If %> <% If msg="" Then If strMode="new" AND Ublogtype="open" Then %> <% Else %> <% End if End if%>

<% = UCase(strLangAltAddCodeUploadIMG) %>

<% = strLangSelectCloseWindow %> | <% = strLangNavBackPrevPage %>

<%=msg%>

<% = strLangSelectCloseWindow %> | <% = strLangNavBackPrevPage %>