<% Dim objCDOMail,strBody dim strCommande,strMessage,strMaj dim strCivilite,strNom,strPrenom,strSociete,strFonction,strActivite,strMail,strTel,strFax,strAdresse dim strCPostal,strVille,strPays,strProjet strCommande = "" strMessage = "" strMaj = 0 strCivilite = "" strNom = "" strPrenom = "" strSociete = "" strFonction = "" strActivite = "" strMail = "" strTel = "" strFax = "" strAdresse = "" strCPostal = "" strVille = "" strPays = "" strProjet = "" 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") strPays = request.form("PAYS") strProjet = request.form("PROJET") if strCommande = "valider" then if strNom = "" then strMessage = strMessage & "Vous devez indiquer votre Nom\r\n" elseif strTel = "" then strMessage = strMessage & "Vous devez indiquer votre Téléphone\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" else strBody = "Contact site Internet ACORE INDUSTRIE" & 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 strBody = strBody & "Pays : " & strPays & vbCrLf & vbCrLf strBody = strBody & "Commentaires : " & strProjet & vbCrLf Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "contact@acore-industrie.com" objCDOMail.To = "contact@acore-industrie.com" objCDOMail.Bcc = "" objCDOMail.Subject = "Contact site Internet ACORE INDUSTRIE" objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing strMaj = 1 end if end if end if %>
RETOUR A LA PAGE D'ACCUEIL
Français
  
English
 
FORMULAIRE DE CONTACT
<%if strMaj = 1 then%>

Votre demande a bien été prise en compte.
Nous vous remercions pour l'intérêt que vous portez à ACORE INDUSTRIE .
Nous vous contacterons dans les plus bref délais.

<%else%>

Afin de mieux vous renseigner, veuillez compléter le formulaire ci-dessous :

Société* :    
Civilité : M. checked<%end if%>> Mme. checked<%end if%>> Mlle.    
Nom* : Fonction :
Prénom : Secteur d'activité :
Adresse : Téléphone* :
Code Postal : Fax :
Ville : E-mail* :
Pays :  
Votre message :



(*) Mentions obligatoires
<%end if%>
Copyright © 2004 Acore Industrie
<% if (strMessage <> "") then Response.Write("") end if %>