Retrouvez les publications relatives à ces discussions dans nos rubriques asp, sql.
liste des forums liste des discussions Participer à la discussion
Message publié le lundi 10 mai 2010 - 17h31 par eiffel74. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"
' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From = """UserWeb@mmcm.com""" & request.form("email")
objMail.ReplyTo= request.form("email")
objMail.To="distribution@autosphere.ca"
objMail.Subject="Abonnement"
objMail.HTMLBody= "<table border='1' cellspacing='0' cellpadding='0' width='600'><tr><td width='300'><p><strong>Magazine</strong></p></td><td width='300'><p>"
objMail.HTMLBody= objMail.HTMLBody & "</p></td></tr><tr><td width='300'><p><strong>Nom</strong></p></td><td width='300'><p>"
if request.form("name") <> ""
objMail.HTMLBody= objMail.HTMLBody & request.form("name")
else
response.write ("Veuillez indique votre nom")
end if
objMail.HTMLBody= objMail.HTMLBody & "</p></td></tr><tr><td><p><strong>Prénom</strong></p></td><td width='300'><p>"
if request.form("name") <> ""
objMail.HTMLBody= objMail.HTMLBody & request.form("firstName")
else
response.write ("Veuillez indique votre prénom")
end if
objMail.HTMLBody= objMail.HTMLBody & Request.Form("firstName")
etc...
Message publié le lundi 10 mai 2010 - 18h11 par pchlj. www.dragon-gift.com - Cherche boulot région le mans :)
Message publié le vendredi 14 mai 2010 - 19h51 par eiffel74. liste des forums liste des discussions Participer à la discussion
Vous devez obligatoirement vous identifier en tant que membre pour participer à cette discussion.