Citation:
# <%
If request("submit") <> "" THEN
Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.To = "info@multi-grafe.com"
objEMail.From = Request("name")
objEMail.Subject = Request("subject")
objEMail.Body = Request("message")
objEMail.Send()
Set objEMail = Nothing
Response.Write("sendMail=success")
End if
%>
Code AS
Citation:
# myButton.onRelease = sendMail;
//execute la fonction sendMail lors du clic sur le bouton myButton (ce qui nécessite de créer un bouton avec une occurrence myButton, sur la scène)
function sendMail ():Void {
var lvDatas:LoadVars = new LoadVars();
lvDatas.email = tfEmail.text;
lvDatas.subject = tfSubject.text;
lvDatas.name = tfName.text;
lvDatas.message = tfMessage.text;
//tout ce qui est tfXXXX correspondent à des objets TextField posé sur la scène
lvDatas.onLoad = onSendMail;
//fonction à executer quand on a une réponse du fichier d'envoi de mail
lvDatas.sendAndLoad("mail.asp", lvDatas, "POST");
//on envoie les données de l'objet LoadVars au fichier ASP en méthode POST
}
function onSendMail (bSuccess:Boolean):Void {
if (bSuccess){
if(this.sendMail == "success") trace("mail envoyé");
else trace("problème avec l´envoi de mail");
} else trace("erreur avec le fichier asp");
}
J'ai essayé sur plusieurs serveur mais la page contenant l'animation m'indique toujours: