<% if request("iAct")="1" then iCivilite=request("iCivilite") iPrenom=request("iPrenom") iNom=request("iNom") iEmail=request("iEmail") iSujet=request("iSujet") iMessage=request("iMessage") iSociete=request("iSociete") iFonction=request("iFonction") iTelephone=request("iTelephone") iMobile=request("iMobile") iFax=request("iFax") iAdresse=request("iAdresse") iAdressecomplement=request("iAdressecomplement") iCp=request("iCp") iVille=request("iVille") mailCorps="CONTACT" & vbCrlF mailCorps=mailCorps & "Civilité : " & iNom & vbCrLf mailCorps=mailCorps & "Prénom : " & iPrenom & vbCrLf mailCorps=mailCorps & "Nom : " & iNom & vbCrLf mailCorps=mailCorps & "Email : " & iEmail & vbCrLf & vbCrLf mailCorps=mailCorps & "Société : " & iSociete & vbCrLf mailCorps=mailCorps & "Fonction : " & iFonction & vbCrLf mailCorps=mailCorps & "Téléphone : " & iTelephone & vbCrLf mailCorps=mailCorps & "Mobile : " & iMobile & vbCrLf mailCorps=mailCorps & "Fax : " & iFax & vbCrLf & vbCrLf mailCorps=mailCorps & "Adresse : " & iAdresse & vbCrLf mailCorps=mailCorps & "Complément d'adresse : " & iAdressecomplement & vbCrLf mailCorps=mailCorps & "Code postal : " & iCp & vbCrLf mailCorps=mailCorps & "Ville : " & iVille & vbCrLf & vbCrLf mailCorps=mailCorps & "Sujet : " & iSujet & vbCrLf mailCorps=mailCorps & "Message : " & vbCrlf & iMessage mailCorps=replace(mailCorps,vbcrlf,"
") Set MyMail = Server.CreateObject("SMTPsvg.Mailer") MyMail.FromAddress= iEmail MyMail.RemoteHost= "mail.ikoula.fr" MyMail.ContentType = "text/html" MyMail.CustomCharSet ="UTF-8" MyMail.AddRecipient "POSEO", "contact@poseo.fr" MyMail.AddBCC "E2MI", "site@e2mi.fr" MyMail.Subject = "[Poseo] Contact depuis le site" MyMail.BodyText = mailCorps MyMail.SendMail Set MyMail = nothing %>

Contactez-nous

Merci pour votre message. Nous vous répondrons d'ici peu. <% else %>
<% end if %>

Accueil | Présentation | Activités | Réalisations | Contact