<%@ Language=VBScript %>
<%
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.SetMaxSize 3100000, True
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
VarEnvoye = 0
On Error Resume Next
varCount = Upload.Savevirtual("/uploads")
if varcount > 0 then
'*************** Vérifie si fichier trop lourd ************************
If Err.Number = 8 Then
VarMessage = "Votre fichier est trop lourd."
VarFlagKill = 1
End If
if varCount > 0 then
VarFichier = Upload.files("txtfile").filename
end if
'******************** si on a un fichier on vérifie qu'il est du bon type par sécurité **********
if len(VarFichier) > 0 then
For Each File in Upload.Files
Ext = UCase(Right(File.filename, 3))
If Ext <> "TXT" and Ext <> "DOC" and Ext <> "PDF" Then
VarMessage = "Le fichier " & File.Filename & " n'est pas un fichier autorisé."
File.Delete
VarCount = VarCount - 1
VarFlagKill = 1
End If
Next
if VarCount > 0 then VarFlag = 1
end if
'****************** Vérifie si on a un messsage ou un fichier *************
if (upload.form("txtMsg") = "Tapez votre soumission ici." or len(upload.form("txtMsg")) < 1) and VarFlagKill = 0 then
VarMessage = "Vous devez entrez votre demande de prix dans la boîte ou ajouter un fichier."
else
VarFlag = 1
end if
'**************** Vérification de l'adresse email **************
if len(upload.form("txtEmail")) < 1 then
VarMessage = "Vous devez entrez une adresse courriel."
else
Vstring = upload.form("txtEmail")
vartest1 = 0 'Vérifie si ya un @
VarTest2 = 0 'Vérifie si ya un . minimum 2 caractere apres le @
VarTest3 = 0 'Vérifie si longueur de email possible min 6
if len(VString) > 5 then
vartest1 = InStr(VString,"@")
VarTest3 = 1
if vartest1 > 0 then
vartest2 = InStr(varTest1 + 2, VString,".")
end if
end if
if (Vartest1 < 1) or (VarTest2 < 1) or (VarTest3 < 1) then
VarMessage = "L'adresse courriel que vous avez entrez est invalide."
else
VarFlag = 1
end if
end if
'********************** Vérifie si on a un nom de personne **********************
if len(upload.form("txtNom")) < 1 then
VarMessage = "Vous devez entrez votre nom."
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 and Varcount > 0 then
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = "rdykes@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 = upload.form("txtEmail")
Mailer.Subject = "Demande de prix"
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 & "Message pour une soumission en provenance du site web :
" & vbcrlf
Sbody = sBody & "Nom : " & upload.form("txtnom") & " " & vbcrlf
Sbody = sBody & "Tel : " & upload.form("txttel") & " " & vbcrlf
Sbody = sBody & "Email : " & upload.form("txtEmail") & " " & vbcrlf
Sbody = sBody & "Projet : " & upload.form("txtProjet") & " " & vbcrlf
Sbody = sBody & "Description : " & upload.form("txtmsg") & " " & vbcrlf
Sbody = sBody & "" & vbcrlf
Mailer.Body = sBody
Mailer.Send
Set Mailer = Nothing
VarMessage = "Votre demande de prix a bien été envoyée."
VarEnvoye = 1
end if
end if
'response.Write VarFlag
%>
Studio shatex Inc. Conseillers en arts graphiques et multimedia
