Bonjour a vous tous,
J'ai un formulaire sous une page .htm que j'envoi sur une page .asp pour l'envoyer avec CDONTS.
je ne recoit pas le mail ou bien je le recois mais 10 à 30 minutes après.
Quelqu'un peut il m'aider.
D'avance merci
Voici mon script.
<%
Dim MyCDONTSMail2
Dim HTML
Set MyCDONTSMail2 = CreateObject("CDONTS.NEWMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IIETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<body>"
HTML = HTML & "<p><u><b>Coordonnées<br>"
HTML = HTML & "</u></b><br>"
HTML = HTML & "<u><b>Numéro d'enregistrement</u> :</b> " + request("numero")+"</p>"
HTML = HTML & "<p><u>Nom</u> : " + request("nom") +"</p>"
HTML = HTML & "<p><u>Prénom</u> : "+request("prenom")+"</p>"
HTML = HTML & "<p><u>E-mail</u> : "+request("email")+"</p>"
HTML = HTML & "<p><u>Tél. Bureau</u> : "+request("telbur")+" <u>Fax</u> : "+request("fax")+"</p>"
HTML = HTML & "<p><u><b>Véhicule</b></u> </p>"
HTML = HTML & "<p><u>Marque</u> : "+request("marque")+"</p>"
HTML = HTML & "<p><u>Modéle</u> : ("+request("codemodele")+") : "+request("description")+"</p>"
HTML = HTML & "<p><u>Option</u> : "+request("choix1")+"</p>"
HTML = HTML & "<p><u><b>Message</b></u> </p>"
HTML = HTML & ""+request("commentaire")+""
HTML = HTML & "</body>"
HTML = HTML & "</html>"
MyCDONTSMail2.From = Request("email")
MyCDONTSMail2.To = "onha@free.fr"
MyCDONTSMail2.Subject = "DEMANDE D'INFORMATION"
MyCDONTSMail2.BodyFormat = 0
MyCDONTSMail2.MailFormat = 0
MyCDONTSMail2.Body = HTML
MyCDONTSMail2.Send
set MyCDONTSMail2=nothing
%>
<%
fmarque=Request.Form("marque")
fdescription=Request.Form("description")
fnom=Request.Form("nom")
fprenom=Request.Form("prenom")
ffax=Request.Form("fax")
femail=Request.Form("email")
ftelbur=Request.Form("telbur")
fcodemodele=Request.form("codemodele")
fchoix1=Request.Form("choix1")
fcartegrise=Request.Form("cartegrise")
fww=Request.Form("ww")
faccessoire=Request.Form("accessoire")
fcommentaire=Request.Form("commentaire")
fdated=Request.Form("dated")
%>
<%
fcommentaire=Replace(fcommentaire,"'","''")
fcommentaire=Replace(fcommentaire,"<","<")
fcommentaire=Replace(fcommentaire,">",">")
fcommentaire=Replace(fcommentaire,vmCrLf,"<br>")
%>
<%
DSN_BASE = "DBQ=" & Server.Mappath("generali.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<%'-------création de la connection et du recordset-----------
Set ConnLot = Server.CreateObject("ADODB.Connection")
ConnLot.Open DSN_BASE
Set RsLot = Server.CreateObject("ADODB.Recordset")%>
<%'-------définition et exécution de la requête---------------
RequeteSQL = "Insert Into demande (marque,description,nom,prenom,fax,telbur,email,codmod,choix1,cartegrise,ww,accessoire,commentaire,dated) Values('"&fmarque&"','"&fdescription&"','"&fnom&"','"&fprenom&"','"&ffax&"','"&ftelbur&"','"&femail&"','"&fcodemodele&"','"&fchoix1&"','"&fcartegrise&"','"&fww&"','"&faccessoire&"','"&fcommentaire&"','"&fdated&"')"
RsLot.Open RequeteSQL , ConnLot%>
<%'-------fermeture de la connection et du recordset----------
Set RsLot = Nothing
ConnLot.Close
Set ConnLot = Nothing%>
Onha