<% Dim Mailer Dim message Set Mailer = Server.CreateObject("CDONTS.NewMail") ' on cre 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") %>