ASP PWS erreur de server ??? help !!!

[Hywel Jenkins]

j'ai windows 98se et PWS installés sur mon ordi

le message d'erreur ci-dessous s'affiche qunand j'appelle via une
instruction action d'un <FORM > HTML le fichier monmail.asp

Objet Server erreur 'ASP 0177 : 800401f3'
Echec de serveur server.CrateObject
/0000640x480/monmail.asp ligne 6
800401f3


Je vous met ci-dessous le script asp de monmail
merci d'avance de vos lumières
PS : est ce que la ligne
JMail.ServerAddress = "http://localhost/0000640x480/"
vous semble bonne ? sachant que lefichier HTML et ASP se trouvent
dans le répertoire c:\0000640x480\

<%
DIM strPhoto, strAnnonce, strPiece, JMail
strPhoto = Request.Form("photo1")
strAnnonce = Request.Form("annonce")
strPiece = Request.Form("photo1")
Set JMail = Server.CreateObject("JMail.SMTPMail")

Have you got JMail correctly installed?

JMail.ServerAddress = "http://localhost/0000640x480/"

That's probably wrong - the mail server won't be running under HTTP,
will it? If it is, I doubt very much that you need the 0000640x480
part.

Why the Hell did you post here then set follow-ups to another group
only?

 

[Jean PALMIERO]

j'ai windows 98se et PWS installés sur mon ordi

le message d'erreur ci-dessous s'affiche qunand j'appelle via une
instruction action d'un <FORM > HTML le fichier monmail.asp

Objet Server erreur 'ASP 0177 : 800401f3'
Echec de serveur server.CrateObject
/0000640x480/monmail.asp ligne 6
800401f3


Je vous met ci-dessous le script asp de monmail
merci d'avance de vos lumières
PS : est ce que la ligne
JMail.ServerAddress = "http://localhost/0000640x480/"
vous semble bonne ? sachant que lefichier HTML et ASP se trouvent
dans le répertoire c:\0000640x480\

<%
DIM strPhoto, strAnnonce, strPiece, JMail
strPhoto = Request.Form("photo1")
strAnnonce = Request.Form("annonce")
strPiece = Request.Form("photo1")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "http://localhost/0000640x480/"
JMail.AddRecipient "(e-mail address removed)"
JMail.ContentType = "text/html"
JMail.Body = strAnnonce
JMail.AddAttachment = strPiece
JMail.Execute
Set JMail= Nothing

IF NOT JMail.Execute THEN
Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "<BR>" & vbcrlf )
Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "<BR>" & vbcrlf )
Response.Write( "LOG: <pre>" & JMail.Log & "</pre>" & vbcrlf )
ELSE
Response.Write "<blockquote>Your :<b>" & strSubject & "</b> Newsletter has
been successfully sent to <b>" & intSubscribers & "</b>
subscribers.</blockquote>"
END IF
%>

thanks
jean from paris