Contact.php
Bloomby
-
macgawel Messages postés 664 Date d'inscription Statut Membre Dernière intervention -
macgawel Messages postés 664 Date d'inscription Statut Membre Dernière intervention -
LORSQUE je clic sur envoyer, il y a une nouvelle fenêtre qui s'ouvre www.(monsiteweb).com/contact.php
et cette page est toute blanche, résultat je ne reçois jamais le courriel
quelqu'un peu m'aider ?
Voici le Code de mon Fichier Contact.php
<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "mail.(MONSERVEUR).com"
smtpPort = 25
name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></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
%>
et cette page est toute blanche, résultat je ne reçois jamais le courriel
quelqu'un peu m'aider ?
Voici le Code de mon Fichier Contact.php
<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "mail.(MONSERVEUR).com"
smtpPort = 25
name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></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
%>