<% Dim objCDOMail,strBody dim strCommande,strMessage,strMaj dim strCivilite,strNom,strPrenom,strSociete,strFonction,strActivite,strMail,strTel,strFax,strAdresse dim strCPostal,strVille,strProjet,strChoix1,strChoix2,strChoix3,strChoix4,strChoix5,strChoix6,strQte,strDim strCommande = "" strMessage = "" strMaj = 0 strCivilite = "" strNom = "" strPrenom = "" strSociete = "" strFonction = "" strActivite = "" strMail = "" strTel = "" strFax = "" strAdresse = "" strCPostal = "" strVille = "" strProjet = "" strChoix1 = "" strChoix2 = "" strChoix3 = "" strChoix4 = "" strChoix5 = "" strChoix6 = "" strQte = "" strDim = "" if (Request.ServerVariables("REQUEST_METHOD") = "POST") then strCommande = request.form("COMMANDE") strCivilite = request.form("CIVILITE") strNom = request.form("NOM") strPrenom = request.form("PRENOM") strSociete = request.form("SOCIETE") strFonction = request.form("FONCTION") strActivite = request.form("ACTIVITE") strMail = request.form("EMAIL") strTel = request.form("TEL") strFax = request.form("FAX") strAdresse = request.form("ADRESSE") strCPostal = request.form("CPOSTAL") strVille = request.form("VILLE") strProjet = request.form("PROJET") strChoix1 = request.form("CHOIX1") strChoix2 = request.form("CHOIX2") strChoix3 = request.form("CHOIX3") strChoix4 = request.form("CHOIX4") strChoix5 = request.form("CHOIX5") strChoix5 = request.form("CHOIX6") strQte = request.form("QTE") strDim = request.form("DIM") if strCommande = "valider" then if strNom = "" then strMessage = strMessage & "Vous devez indiquer votre Nom\r\n" elseif strAdresse = "" then strMessage = strMessage & "Vous devez indiquer votre Adresse\r\n" elseif strMail = "" then strMessage = strMessage & "Vous devez indiquer votre E-Mail\r\n" elseif strSociete = "" then strMessage = strMessage & "Vous devez indiquer votre Société\r\n" elseif strVille = "" then strMessage = strMessage & "Vous devez indiquer votre ville\r\n" elseif strCPostal = "" then strMessage = strCPostal & "Vous devez indiquer votre code postal\r\n" elseif strActivite = "" then strMessage = strActivite & "Vous devez indiquer votre activité\r\n" else strBody = "Contact site Internet ESC PACKAGING" & vbCrLf & vbCrLf strBody = strBody & "Civilite : " & strCivilite & vbCrLf strBody = strBody & "Nom : " & strNom & vbCrLf strBody = strBody & "Prénom : " & strPrenom & vbCrLf strBody = strBody & "Fonction : " & strFonction & vbCrLf & vbCrLf strBody = strBody & "Société : " & strSociete & vbCrLf & vbCrLf strBody = strBody & "Activite : " & strActivite & vbCrLf & vbCrLf strBody = strBody & "Téléphone : " & strTel & vbCrLf strBody = strBody & "Fax : " & strFax & vbCrLf strBody = strBody & "E-Mail : " & strMail & vbCrLf & vbCrLf strBody = strBody & "Adresse : " & strAdresse & vbCrLf strBody = strBody & "Code Postal : " & strCPostal & " Ville : " & strVille & vbCrLf & vbCrLf strBody = strBody & "Sacs de luxe : " & strChoix1 & vbCrLf strBody = strBody & "Sacs publicitaires : " & strChoix2 & vbCrLf strBody = strBody & "Sacs Fantaisie : " & strChoix3 & vbCrLf strBody = strBody & "Hotellerie Gastronomie : " & strChoix4 & vbCrLf strBody = strBody & "Boîtes coffret : " & strChoix5 & vbCrLf strBody = strBody & "Promotion P.L.V. : " & strChoix6 & vbCrLf & vbCrLf strBody = strBody & "Quantité : " & strQte & vbCrLf strBody = strBody & "Dimensions en mm : " & strDim & vbCrLf & vbCrLf strBody = strBody & "Observations : " & strProjet & vbCrLf Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "contact@esc-packaging.com" objCDOMail.To = "contact@esc-packaging.com" objCDOMail.Bcc = "dpommier@antemedia.com" objCDOMail.Subject = "Contact site Internet ESC PACKAGING" objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing strMaj = 1 end if end if end if %>
 
Contact
 
<%if strMaj = 1 then%>
Votre demande a bien été prise en compte.
Nous vous remercions pour l'intérêt que vous portez à ECS PACKAGING. Nous vous contacterons dans les plus bref délais.

 <%else%>
Civilité : M. checked<%end if%>> Mme. checked<%end if%>> Mlle. Secteur d'activité : *
Nom : * Téléphone :
Prénom : Fax :
Adresse : * E-mail : *
Code Postal : * Vous êtes intéressé par :
Ville : * checked<%end if%>> Sacs de Luxe checked<%end if%>> Sacs publicitaires checked<%end if%>> Sacs boutique fantaisie
Société : * checked<%end if%>> Sacs vinicoles - Gastronomie checked<%end if%>> Boîtes coffret checked<%end if%>> PLV Valisette
Fonction : Quantité :
Observations :
 Dimensions mm :
 
 
<%end if%> (*) Mentions obligatoires
© Copyright 2003 ESC PACKAGING
         mentions légales

 

<% if (strMessage <> "") then Response.Write("") end if %>