<% Dim Mailer Dim message Set Mailer = Server.CreateObject("CDONTS.NewMail") ' on crée l'objet CDONTS Mailer.To = "info@casade.com" ' email du destinataire Mailer.From = "info@casade.com" ' email de l'expediteur Mailer.Subject = "CASADE.COM - Demande d'informations ["&request.form("lng")&"]" ' titre du message ' corps du message 'message = "Le texte qui sera envoyds fqsdf qsd fqsd fqsé" message="Demande d'informations
" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "" message=message & "

Societe	" & request.form("Societe")&"
Adresse	" & request.form("Adresse")&"
CodePostale	"&request.form("CodePostale")&"
Ville	"&request.form("Ville")&"
Etat	"&request.form("Etat")&"
Pays	"&request.form("Pays")&"
Telephone	"&request.form("Telephone")&"
Telecopie	"&request.form("Telecopie")&"
EMail	"&request.form("EMail")&"
ContactSex	"&request.form("ContactSex")&"
ContactNom	"&request.form("ContactNom")&"
ContactPrenom	"&request.form("ContactPrenom")&"
Activite	"&request.form("Activite")&"
SiAutre	"&request.form("SiAutre")&"
NbEtablissements	"&request.form("NbEtablissements")&"
Previsions	"&request.form("Previsions")&"
Quotation	"&request.form("Quotation")&"
Infos	"&request.form("Infos")&"

" message=message & "" Mailer.BodyFormat=0 Mailer.MailFormat=0 'Mailer.Body=Server.HTMLEncode(message) Mailer.Body=message Mailer.Send ' on envoie le tout response.write(message) response.write("Mail sent : ok") Response.redirect("index.php") %>