j'ai créé un petit formulaire en ASP avec l'objet CDONTS. Seulement voilà, quand l'utilisateur arrive sur la page, CDONTS envoie déjà automatiquement un email vide ! Comment faire pour réparer ça ?
- Code: Tout sélectionner
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Enquete</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<h1>Enquête Satisfaction</h1>
<form name="form1" method="post" action="">
<table>
<tr>
<td>Êtes-vous satisfait :</td>
<td>Très insatisfait</td>
<td>Insatisfait</td>
<td>Assez satisfait</td>
<td>Tout à fait<br>
satisfait</td>
</tr>
<tr>
<td>des performances ?</td>
<td><input type="radio" name="perf" value="performances : 1"></td>
<td><input type="radio" name="perf" value="performances : 2"></td>
<td><input type="radio" name="perf" value="performances : 3"></td>
<td><input name="perf" type="radio" value="performances : 4" checked></td>
</tr>
<tr>
<td>de l'optimisation ?</td>
<td><input type="radio" name="optimisation" value="optimisation : 1"></td>
<td><input type="radio" name="optimisation" value="optimisation : 2"></td>
<td><input type="radio" name="optimisation" value="optimisation : 3"></td>
<td><input name="optimisation" type="radio" value="optimisation : 4" checked></td>
</tr>
<tr>
<td>du respect des conditions ?</td>
<td><input type="radio" name="contrat" value="conditions : 1"></td>
<td><input type="radio" name="contrat" value="conditions : 2"></td>
<td><input type="radio" name="contrat" value="conditions : 3"></td>
<td><input name="contrat" type="radio" value="conditions : 4" checked></td>
</tr>
</table>
<table>
<tr>
<td>Êtes-vous satisfait :</td>
<td>Très insatisfait</td>
<td>Insatisfait</td>
<td>Assez satisfait</td>
<td>Tout à fait<br>
satisfait</td>
</tr>
<tr>
<td>de la compétence du personnel ?</td>
<td><input type="radio" name="comp_xp" value="competences : 1"></td>
<td><input type="radio" name="comp_xp" value="competences : 2"></td>
<td><input type="radio" name="comp_xp" value="competences : 3"></td>
<td><input name="comp_xp" type="radio" value="competences : 4" checked></td>
</tr>
<tr>
<td>de l'attitude du personnel ?</td>
<td><input type="radio" name="attitude" value="attitude : 1"></td>
<td><input type="radio" name="attitude" value="attitude : 2"></td>
<td><input type="radio" name="attitude" value="attitude : 3"></td>
<td><input name="attitude" type="radio" value="attitude : 4" checked></td>
</tr>
<tr>
<td>de la réactivité ?</td>
<td><input type="radio" name="activite" value="reactivite : 1"></td>
<td><input type="radio" name="activite" value="reactivite : 2"></td>
<td><input type="radio" name="activite" value="reactivite : 3"></td>
<td><input name="activite" type="radio" value="reactivite : 4" checked></td>
</tr>
<tr>
<td>de la qualité du reporting ?</td>
<td><input type="radio" name="reporting" value="reporting : 1"></td>
<td><input type="radio" name="reporting" value="reporting : 2"></td>
<td><input type="radio" name="reporting" value="reporting : 3"></td>
<td><input name="reporting" type="radio" value="reporting : 4" checked></td>
</tr>
<tr>
<td>de la facturation ?</td>
<td><input type="radio" name="facturation" value="facturation : 1"></td>
<td><input type="radio" name="facturation" value="facturation : 2"></td>
<td><input type="radio" name="facturation" value="facturation : 3"></td>
<td><input name="facturation" type="radio" value="facturation : 4" checked></td>
</tr>
</table>
<p> </p>
<p>Selon vous, quel point devons nous améliorer en priorité ?</p>
<p>
<textarea name="ameliorer" cols="100" rows="5" id="ameliorer"></textarea></p>
<p>Selon vous, quel est notre point fort ?</p>
<p>
<textarea name="pfort" cols="100" rows="5" id="pfort"></textarea>
</p>
<h2>Commentaires</h2>
<p>
<textarea name="commentaires" cols="100" rows="6" id="commentaires"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Envoyer" class="submit">
<input type="reset" name="Submit2" value="Rétablir" class="submit">
</p>
<%
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From="enquete@alexboom.com"
objCDOMail.To="webmasseur@alexboom.com"
objCDOMail.Subject="Enquete Satisfaction-Explotation"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body=Request.Form("perf") & "<BR>" & Request.Form("optimisation") & "<BR>" & Request.Form("contrat") & "<BR>" & Request.Form("comp_xp") & "<BR>" & Request.Form("attitude") & "<BR>" & Request.Form("activite") & "<BR>" & Request.Form("reporting") & "<BR>" & Request.Form("facturation") & "<BR> point a améliorer : " & Request.Form("ameliorer") & "<BR>point fort : " & Request.Form("pfort") & "<BR>commentaires : " & Request.Form("commentaires")
objCDOMail.Send
Set objCDOMail=Nothing
%>
</form>
</body>
</html>
merci pour votre aide