<html>
<body>
<form method=post action="mail.asp" name="ligne_directe">
<p><font size="6">Contact</font></p>
<p> </p>
<table width="95%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>Nom / Prenom :</td>
<td><input name="nom" type=text size=50></td>
</tr>
<tr>
<td>E-mail : </td>
<td><input name="email" type=text size=50></td>
</tr>
<tr>
<td>Votre adresse : </td>
<td><input name="adresse" type=text size=70></td>
</tr>
<tr>
<td>Votre remarque :</td>
<td><textarea name="message"></textarea></td>
</tr>
</table>
<p>
<input type=submit name=mem value="Envoyez le message !">
</p>
</form>
<%
mem=request("mem")
if len(mem)>0 then
Set myMail = CreateObject("CDONTS.NewMail")
mess="envoie d'email par internaute"
mess=mess&"Voici le message envoyé par mail: <br/>"
mess=mess&"Le nom : "&request.form("nom")&"<br/>"
mess=mess&"L'Email : "&request.form("email")&"<br/>"
mess=mess&"L'adresse : "&request.form("adresse")&"<br/>"
mess=mess&"Le message : "&request.form("message")&"<br/>"
myMail.From = "postmaster@nomdedomaine.com"
myMail.To = "postmaster@nomdedomaine.com"
myMail.Subject = "Message reçu par la page Ligne directe"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = mess
myMail.Send
set myMail = nothing
end if
%>
Partager