% check_msg = "vide" If Request("envoi") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.laetitiaRG.com" Mail.From = Request("inMail_email") Mail.FromName = Request("inMail_nom") Mail.AddAddress "contact@laetitiaRG.com" Mail.Subject = "Nouveau mail depuis LaetitiaRG.com" Mail.Body = Request("inMail_message") On Error Resume Next Mail.Send If Err <> 0 Then check_msg = "L'envoi de votre message a échoué avec l'erreur : "& Err.Description Else check_msg = "Votre message a été correctement envoyé." End If End If %>
© 2011 Laetitia RG | Contact | Paris
Auteur-illustrateur, Print & Logo Design, Web Design, Communication