By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
438,162 Members | 1,061 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 438,162 IT Pros & Developers. It's quick & easy.

ASP-0177-800401f3 error

P: n/a
I am running ASP from a remote host and I am getting ASP-0177-800401f3 error. Can I fix on my end?
Expand|Select|Wrap|Line Numbers
  1.  
  2. Sub SendEmail() 
  3.     Dim Mailer, strBodyMessage, strMessage,font,color,line,color1,color2
  4.     color="<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>"
  5.     color1="<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#666666'>"
  6.     color2="<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#990000'>"
  7.     font="<font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
  8.     line="<br>-------------------------------------------------------"
  9.     strBodymessage= "<h2>" & color & strTitle & "</font></h2>" & font & color & strEvite & strNote & "<p>" & color2 & strPersonalNote & "</font></p><p>Sincerely,</p>" & strName & "</font>"
  10.  
  11.  
  12.     Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  13.     Mailer.FromName = strName  
  14.     Mailer.FromAddress= "evite@broadwayunited.org"
  15.     Mailer.RemoteHost = "mail.broadwayunited.org"
  16.     Mailer.AddRecipient strFriend,strEmail2
  17.     Mailer.AddBCC "Evite","evite@broadwayunited.org"
  18.     Mailer.ReplyTo = strEmail
  19.     Mailer.Subject = strSubject 
  20.     Mailer.BodyText = "<html><body>" & strBodymessage & "</body></html>"
  21.     Mailer.ContentType = "text/html"
  22.     Mailer.Configuration.Fields.Item _
  23.     ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
  24.     Mailer.Configuration.Fields.Item _
  25.     ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="10.10.10.23"
  26.     Mailer.Configuration.Fields.Item _
  27.     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
  28.     Mailer.Configuration.Fields.Update
  29.  
  30.     if Mailer.SendMail then
  31.         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>"
  32.     Else
  33.       Response.Write "<p class='title'>Mail send failure</p><p>Please Try Again later.</p>"
  34.     end if
  35.     Set Mailer = Nothing
  36. End Sub
  37.  
  38. %>
  39.  
Nov 16 '10 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.