fdgdfsgdfgd
Messages postés2Date d'inscriptionsamedi 9 juin 2007StatutMembreDernière intervention15 juillet 2007
-
15 juil. 2007 à 10:20
fdgdfsgdfgd
Messages postés2Date d'inscriptionsamedi 9 juin 2007StatutMembreDernière intervention15 juillet 2007
-
15 juil. 2007 à 10:23
Bonjour a tous !
J'ai creer un site flash avec une rubrique contact.
Sur cette page 3 champs a remplir et 2 boutons, "effacer" qui fonctionne, et "envoyer" qui se rebelle !
Quand je click sur envoyer, tous se passe bien car il me dit message envoyé or ce n'ai pas le cas !
Le probleme viens du fait que je ne sais pas ou lui indiquer le mail de destination.
Alors voici mon code, si vous pouvier m'eclairer dessus, je vous en serais reconnaissant
</html>" , $headers);
echo ("Votre message a etait envoyé!");
?>
<!-- END TEMPLATE: bbcode_code -->
et voici le code dans mon fichier contact.asp
<%
Set reg = New RegExp
reg.Pattern = "^[A-Za-z0-9\._\-]+@([A-Za-z0-9\._\-]+\.)+[A-Za-z0-9\._\-]+$"
Set m = reg.Execute(Request.QueryString("your_email"))
if m.count > 0 then
smtpServer = "swapper.loc"
smtpPort = 25
name = Request.QueryString("your_name")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request.QueryString("your_email")
myMail.To = Request.QueryString("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head>
" & Request.QueryString("message") & "</html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
myMail.Configuration.Fields.Update
myMail.Send
Response.Write("Your email was sent")
else
Response.Write("Invalid email")
End if
<!-- END TEMPLATE: bbcode_code -->
Voila, de plus petit precision en verifiant les erreurs via dreamweaver, il me dis pour les 2 fichiers, problemes au niveau de la balise <script>
Voila en esperant que quelqu'un pourra voir ou mettre cette maudite adresse de destination :)
Bonne journee et merci aux lecteurs
</html>" , $headers);
echo ("Votre message a etait envoyé!");
?>
code du fihcier contact.asp
<%
Set reg = New RegExp
reg.Pattern = "^[A-Za-z0-9\._\-]+@([A-Za-z0-9\._\-]+\.)+[A-Za-z0-9\._\-]+$"
Set m = reg.Execute(Request.QueryString("your_email"))
if m.count > 0 then
smtpServer = "swapper.loc"
smtpPort = 25
name = Request.QueryString("your_name")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request.QueryString("your_email")
myMail.To = Request.QueryString("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head>
" & Request.QueryString("message") & "</html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
myMail.Configuration.Fields.Update
myMail.Send
Response.Write("Your email was sent")
else
Response.Write("Invalid email")
End if