I am running ASP from a remote host and I am getting ASP-0177-800401f3 error. Can I fix on my end?
Code:
Sub SendEmail()
Dim Mailer, strBodyMessage, strMessage,font,color,line,color1,color2
color="<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>"
color1="<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#666666'>"
color2="<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#990000'>"
font="<font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
line="<br>-------------------------------------------------------"
strBodymessage= "<h2>" & color & strTitle & "</font></h2>" & font & color & strEvite & strNote & "<p>" & color2 & strPersonalNote & "</font></p><p>Sincerely,</p>" & strName & "</font>"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = strName
Mailer.FromAddress= "evite@broadwayunited.org"
Mailer.RemoteHost = "mail.broadwayunited.org"
Mailer.AddRecipient strFriend,strEmail2
Mailer.AddBCC "Evite","evite@broadwayunited.org"
Mailer.ReplyTo = strEmail
Mailer.Subject = strSubject
Mailer.BodyText = "<html><body>" & strBodymessage & "</body></html>"
Mailer.ContentType = "text/html"
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="10.10.10.23"
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Mailer.Configuration.Fields.Update
if Mailer.SendMail then
response.write "<p class='title'>Thank you for sending our Evite!</p><p> Your friend will receive an email invitation to our sermon series shortly.</p>"
Else
Response.Write "<p class='title'>Mail send failure</p><p>Please Try Again later.</p>"
end if
Set Mailer = Nothing
End Sub
%>