title: asp CDO.Message.1 error '80040213' The transport failed to connect to the server. /check.asp, line 25
body: <pre><code>CDO.Message.1 error '80040213'
  
  The transport failed to connect to the server.
  
  /check.asp, line 25
  </code></pre>
  
  <p>please help to solve this problem</p>
  
  <p>check this code</p>
  
  <pre><code>&lt;%@ Language=VBScript %&gt;
  &lt;html&gt;
  &lt;head&gt;
  &lt;/head&gt;
  &lt;body&gt;
  &lt;%
  dim to_field, message
  to_field = Request.Form("to_field")
  message = Request.Form("message")
  'Create the e-mail server object
  Set objCDOSYSMail = Server.CreateObject("CDO.Message")
  Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
  'Out going SMTP server
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com"
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  objCDOSYSCon.Fields.Update
  'Update the CDOSYS Configuration
  Set objCDOSYSMail.Configuration = objCDOSYSCon
  objCDOSYSMail.From = "admin@example.com" ' the address you want the email to be from
  objCDOSYSMail.TO = "anuradha@gmail.com"  'the address the mail is to be sent to
  objCDOSYSMail.Subject = "Subject goes here"
  objCDOSYSMail.HTMLBody = "fffffffffff"
  objCDOSYSMail.Send
  'Close the server mail object
  Set objCDOSYSMail = Nothing
  Set objCDOSYSCon = Nothing
  %&gt;
  &lt;p&gt;Mail sent successfully to address &lt;%=to_field%&gt;!&lt;/p&gt;
  &lt;/body&gt;
  &lt;/html&gt;
  </code></pre>