this script worked under wnt but on the new ms 2000 internet information server it doesn't work anymore.
Dim objMail
set objMail = server.createobject("SMTPsvg.Mailer"
objMail.FromName = sFromEmail
objMail.FromAddress = sFromEmail
objMail.RemoteHost = sEmailServer
objMail.AddRecipient sToEmail, sToEmail
objMail.Subject = sSubject
objMail.BodyText = sText
if objMail.SendMail then
SendEmail = ""
else
' Message send failure
SendEmail = objMail.Response
end if
Set objMail = nothing
i always get the error: page cant be displayed server failure 500
andreas owen
aowen@swissonline.ch
Dim objMail
set objMail = server.createobject("SMTPsvg.Mailer"
objMail.FromName = sFromEmail
objMail.FromAddress = sFromEmail
objMail.RemoteHost = sEmailServer
objMail.AddRecipient sToEmail, sToEmail
objMail.Subject = sSubject
objMail.BodyText = sText
if objMail.SendMail then
SendEmail = ""
else
' Message send failure
SendEmail = objMail.Response
end if
Set objMail = nothing
i always get the error: page cant be displayed server failure 500
andreas owen
aowen@swissonline.ch