<%
Server.ScriptTimeout = 21600
'************ définition de l'objet aspupload et de sa progress bar **********8
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "framebar.asp?to=10&" & PID
Set Upload = Server.CreateObject("Persits.Upload")
Upload.ProgressID = Request.QueryString("PID")
Upload.OverwriteFiles = False ' renomme automatiquement les fichiers pour ne pas overwrtiter
Upload.IgnoreNoPost = True ' Ne plante pas si on load la page sans formulaire en postscript
'*************** Sauvegarde du fichier **************
VarFlag = 0
VarFlagKill = 0
varCount = Upload.Savevirtual("/uploads/FTP")
if varcount > 0 then
VarFichier = Upload.files("txtfile").filename
'******************** si on a un fichier on vérifie qu'il est du bon type par sécurité **********
For Each File in Upload.Files
Ext = UCase(Right(File.filename, 3))
If Ext <> "TXT" and Ext <> "DOC" and Ext <> "PDF" and Ext <> "BIN" and Ext <> "SIT" and Ext <> "ZIP" and Ext <> "JPG" and Ext <> "GIF" Then
VarMessage = "Le fichier " & File.Filename & " n'est pas un fichier autorisé."
File.Delete
VarCount = VarCount - 1
VarFlagKill = 1
End If
Next
VarFlag = 1
'****************** Vérifie si on a un nom ou un fichier *************
if len(upload.form("txtNom")) < 1 then
VarMessage = "Vous devez entrez votre nom."
VarFlagKill = 1
else
VarFlag = 1
end if
'****************** Vérifie si on a un email ou un fichier *************
if len(upload.form("txtEmail")) < 1 then
VarMessage = "Vous devez entrez votre E-Mail."
VarFlagKill = 1
else
VarFlag = 1
end if
'***************** Si ya pas d'erreur et que les informations sont correct on envoie un email ***********
if varflag = 1 and VarFlagKill = 0 then
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = "production@studioshatex.com"
' Mailer.To = "kodak_QC@hotmail.com"
' Mailer.Cc = "email1@email.com, email2@email.com"
' Mailer.BCc = "email1@email.com, email2@email.com"
Mailer.From = "production@studioshatex.com"
Mailer.Subject = "Nouveau Fichier uploader sur FTP"
Mailer.Importance = 1 ' importance : 0 = normal, 1 = urgent, 2 = très urgent
' VarFichier = server.MapPath("..") & "\uploads\" & VarFichier
' Mailer.AttachFile Varfichier
' 0 pour format html et 1 pour text pour les 2 lignes
Mailer.BodyFormat = 0
Mailer.MailFormat = 0
sBody = "" & vbcrlf
Sbody = sBody & "Un nouveau fichier en provenance du FTP a été uploadé avec succès avec la description suivante : " & vbcrlf
Sbody = sBody & upload.form("txtmsg") & "
" & vbcrlf
Sbody = sBody & "Vous pouvez télécharger le fichier à l'adresse suivante ou en copiant le lien suivant :
" & vbcrlf
Sbody = sBody & "http://studioshatex.com/uploads/FTP/" & VarFichier & "" & vbcrlf
Sbody = sBody & "" & vbcrlf
Mailer.Body = sBody
Mailer.Send
Set Mailer = Nothing
VarMessage = "Votre fichier a bien été envoyé."
end if
end if
'response.Write VarFlag
%>
Studio shatex Inc. Conseillers en arts graphiques et multimedia
