<%
' ********************************
' formulaire devis general
' ********************************
'
' cette page permet d'envoyer un mail à contact@alliance-pm.fr
' on recupere les champs du formulaire
' on upload si il y un fichier à uploadé
' on envoie le mail
mailsend = 0
' traitements
if request.totalbytes > 0 then
'''''''''''''''''Debut d'upload'''''''''''''''''
' Variables
' *********
Dim mySmartUpload
Dim file
nom_du_fichier = ""
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
'fichiers refusés
mysmartUpload.DeniedFilesList = "exe,bat,com"
' taille max = 5 Meg
mysmartUpload.MaxFileSize = 5000000
' recuperation des informations
societe = mySmartUpload.form("societe")
fonction = mySmartUpload.form("fonction")
nom = mySmartUpload.form("nom")
prenom = mySmartUpload.form("prenom")
adresse= mySmartUpload.form("adresse")
code_postal = mySmartUpload.form("code_postal")
ville = mySmartUpload.form("ville")
telephone = mySmartUpload.form("telephone")
fax = mySmartUpload.form("fax")
email = mySmartUpload.form("email")
infoplus = mySmartUpload.form("infoplus")
projet = mySmartUpload.form("projet")
If not mySmartUpload.Files(1).IsMissing and mySmartUpload.Files(1).size > 0 Then
' recuperation du nom a donner au fichier
set fso = server.CreateObject("scripting.FileSystemObject")
Dim MyString
MyString = Split(mySmartUpload.Files(1).fileName, ".", -1)
nom_du_fichier = LCase(Mystring(0) &"."& Mystring(1))
ind = 0
While fso.FileExists(Server.MapPath("../../pieces_jointes/" &nom_du_fichier))
ind = ind + 1
nom_du_fichier = Mystring(0) & ind &"."& Mystring(1)
Wend
mySmartUpload.Files(1).saveAs(Server.MapPath("../../pieces_jointes/" &nom_du_fichier))
end if
Set mySmartUpload=nothing
'''''''''''''''''''''fin d'upload'''''''''''''''''''''''''
' construction du message
msg = "Envoi d'e-mail de la page 'devis général' du site APM" & vbNewLine & vbNewLine &_
"Expéditeur : " & nom & " " & prenom & " (" & societe & ")" & vbNewLine &_
"fonction : " & fonction & vbNewLine & vbNewLine &_
"adresse : " & adresse & vbNewLine &_
"cp/ville : " & code_postal & "/" & ville & vbNewLine &_
"telephone : " & telephone & vbNewLine &_
"fax : " & fax & vbNewLine & vbNewLine &_
"informations supplémentaires : " & infoplus & vbNewLine & vbNewLine &_
"Description du projet : "& vbNewLine & projet
' envoi du mail
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = "contact@alliance-pm.fr"
mail.From = email
mail.Subject = "Demande de devis général APM"
mail.Body = msg
if nom_du_fichier <> "" Then
mail.attachFile server.mapPath("../../pieces_jointes/"& nom_du_fichier)
End if
mail.Send
mailsend = 1
end if
%>
APM - Aménagements urbains routiers et autoroutiers
*champs obligatoires
<%if mailsend = 0 then%>
<%Else%>
Nous vous remercions de votre demande, notre service commercial vous tranmettra sa réponse dans les plus brefs délais.
