Bonsoir,
A priori, ce qui me tracasse c'est que la page voyage1.asp contient le formulaire suivi du traitement de l'envoi du mail hors rien n'a encore été saisi.
Soit, tu fais 2 pages différentes pour afficher le formulaire sans 1 et le traitement du post dans l'autre ou alors 1 page unique mais avec un test en entrée pour savoir si la page s'ouvre pour la 1ère fois ou suite au post après la saisie.
A suivre ...
Jean-Charles
-------------------------------
Réponse au message :
-------------------------------
Salut, mon fichier s'appelle voyage1.asp et je reçoi ce message quand je l'execute :
"Microsoft VBScript runtime error '800a01a8'
Object required: ''
/voyage1.asp, line (**)
(**)c'est la ligne vers la fin ou il y a peut étre une erreur ou plusieurs: objCDOMail.Send ou ailleur ???????
je suis perdu !!!!!!!!!!!!! Help !!!!!!!!!!!!!!!
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#FF0000">
<form name="form" method="post" action="voyage1.asp">
<table width="81%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="46%" nowrap><font face="Arial, Helvetica, sans-serif"><b>VOTRE
ADRESSE EMAIL </b></font></td>
<td width="54%"><font face="Arial, Helvetica, sans-serif"><b>
<input type="text" name="email" size="50">
</b></font></td>
</tr>
<tr>
<td width="46%"><b><font face="Arial, Helvetica, sans-serif">SUJET</font></b></td>
<td width="54%"><b><font face="Arial, Helvetica, sans-serif">
<input type="text" name="sujet" size="50">
</font></b></td>
</tr>
<tr>
<td width="46%"><b><font face="Arial, Helvetica, sans-serif">PRENOM</font></b></td>
<td width="54%"><b><font face="Arial, Helvetica, sans-serif">
<input type="text" name="prenom" size="50">
</font></b></td>
</tr>
<tr>
<td width="46%"><font face="Arial, Helvetica, sans-serif"><b>ADRESSE</b></font></td>
<td width="54%">
<input type="text" name="adresse" size="50">
</td>
</tr>
<tr>
<td width="46%" nowrap><font face="Arial, Helvetica, sans-serif"><b>VILLE</b></font></td>
<td width="54%">
<input type="text" name="ville" size="50">
</td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="Envoyer">
<Input Type="reset" name="Submit2" value="Rétablir">
</p>
</form>
<%
'on error resume next'
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("email")
objCDOMail.To = "monemail@monhebergeur.fr"
objCDOMail.Subject=Request.Form("sujet")
objCDOMail = Request.Form("nom")
objCDOMail = Request.Form("prenom")
objCDOMail = Request.Form("adresse")
objCDOMail = Request.Form("ville")
objCDOMail.Send
if err.Number = 0 then
%>
<script> alert ("formulaire envoyé");</script>
<%else%>
<script> alert ("une erreur c'est produite...");</script>
<%end if
Set objCDOMail=Nothing
%>
</body>
</HTML>