<% ' ******************************** ' devis imprint ' ******************************** ' ' cette page permet d'envoyer un mail à contact@alliance-pm.fr ' on recupere les champs du formulaire ' on envoie le mail mailsend = 0 ' traitements if request.totalbytes > 0 then ' Variables ' ********* Dim mySmartUpload Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 'fichiers refusés mysmartUpload.DeniedFilesList = "exe,bat,com" ' taille max = 5 Meg mysmartUpload.MaxFileSize = 5000000 mySmartUpload.Upload ' recuperation des informations 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") maitreoeuvre= mySmartUpload.form("maitreoeuvre") maitreouvrage= mySmartUpload.form("maitreouvrage") responsablechantier= mySmartUpload.form("responsablechantier") telephonechantier= mySmartUpload.form("telephonechantier") lieuduchantier= mySmartUpload.form("lieuduchantier") adresselivraison= mySmartUpload.form("adresselivraison") horairelivraison= mySmartUpload.form("horairelivraison") travauxneuf= mySmartUpload.form("travauxneuf") tenantseul= mySmartUpload.form("tenantseul") tapisexistant= mySmartUpload.form("tapisexistant") plusieurssurfaces= mySmartUpload.form("plusieurssurfaces") combienplusieurssurfaces= mySmartUpload.form("combienplusieurssurfaces") txsouscircul= mySmartUpload.form("txsouscircul") txhorscircul= mySmartUpload.form("txhorscircul") ancrage= mySmartUpload.form("ancrage") primaire= mySmartUpload.form("primaire") supportappli= mySmartUpload.form("supportappli") etatsupport= mySmartUpload.form("etatsupport") couleurimprint= mySmartUpload.form("couleurimprint") m2= mySmartUpload.form("m2") surdosage= mySmartUpload.form("surdosage") motifempreinte= mySmartUpload.form("motifempreinte") protectionsupp= mySmartUpload.form("protectionsupp") protectionsupptype= mySmartUpload.form("protectionsupptype") stationcamion= mySmartUpload.form("stationcamion") periodeinterv= mySmartUpload.form("periodeinterv") chantierokquand= mySmartUpload.form("chantierokquand") ' construction du message msg = "Envoi d'e-mail de la page 'devis imprint' du site APM" & vbNewLine & vbNewLine &_ "Expéditeur : " & nom & " " & prenom & vbNewLine &_ "fonction : " & fonction & 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 & vbNewLine & vbNewLine &_ "maitre d'oeuvre : " & maitreoeuvre & vbNewLine &_ "maitre d'ouvrage : " & maitreouvrage & vbNewLine &_ "responsable de chantier : " & responsablechantier & vbNewLine &_ "telephone chantier : " & telephonechantier & vbNewLine &_ "lieu du chantier : " & lieuduchantier & vbNewLine &_ "adresse de livraison : " & adresselivraison & vbNewLine &_ "horaire de livraison : " & horairelivraison & vbNewLine &_ "travaux neufs : " & travauxneuf & vbNewLine &_ "1 surface d'un seul tenant : " & tenantseul & vbNewLine &_ "aménagement sur tapis existant : " & tapisexistant & vbNewLine &_ "plusieurs surfaces : " & plusieurssurfaces & vbNewLine &_ "combien (plusieurs surfaces)? : " & combienplusieurssurfaces & vbNewLine &_ "travaux sous circulation : " & txsouscircul & vbNewLine &_ "travaux hors circulation : " & txhorscircul & vbNewLine &_ "ancrage (15cm delarge) : " & ancrage & vbNewLine &_ "primaire d'accroche béton: " & primaire & vbNewLine &_ "support d'application : " & supportappli & vbNewLine &_ "etat support : " & etatsupport & vbNewLine &_ "couleur imprint : " & couleurimprint & vbNewLine &_ "Nb total de m2 : " & m2 & vbNewLine &_ "surdosage possible: " & surdosage & vbNewLine &_ "motif de l'empreinte : " & motifempreinte & vbNewLine &_ "protection de chantier supplémentaire : " & protectionsupp & vbNewLine &_ "type de protection chantier supplémentaire : " & protectionsupptype & vbNewLine &_ "stationnement camion : " & stationcamion & vbNewLine &_ "periode d'intervention souhaitée : " & periodeinterv & vbNewLine &_ "chantier prêt à partir de : " & chantierokquand ' 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 imprint APM" mail.Body = msg mail.Send mailsend = 1 end if %>

<%if mailsend = 0 then%> Fonction :  Nom* :  *champs obligatoires Prénom :  Adresse :  Code postal :  Ville :  Téléphone :  Fax :  Email* :  votre projet* :  Maître d'oeuvre :  Maître d'ouvrage :  Responsable chantier :  Téléphone chantier :  Lieu du chantier :  Adresse de livraison :  Horaire de livraison :  TYPE DE CHANTIER  Travaux neufs :  1 surface d'un seul tenant :  Aménagement sur tapis existant :  Plusieurs surfaces :  combien ? : Travaux sous circulation :  Travaux hors circulation :  Ancrage (15 cm de large) :  ml (estimation) Primaire d'accroche béton :  m2 (estimation) Support d'application:  enrobé béton asphalte autre Etat support :  neuf bon état acceptable réfection souhaitable Couleur imprint :  vert marron rouge gris foncé fauve gris clair rouge oxyde gris bristol blanc rouge brun jaune pale bleu Nombre total de m2 :  Surdosage possible :  oui non motif de l'empreinte :  hexagonale pavé Supplément protection chantier :       non oui    type : Stationnement du camion :  Période d'intervention souhaitée :  Chantier prêt à partir de :  Je veux recevoir d'autres informations du groupe Prosign :  oui :  non :   <%Else%> Nous vous remercions de votre demande, notre service commercial vous tranmettra sa réponse dans les plus brefs délais. A bientôt, sur http://www.alliance-pm.fr <% mailsend = 0 End if%>