Test for CDONTS on server

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Beginning

Author:

Kathi

Version Compatibility: ASP

More information:

This works well if you don't know if your webhost has CDONTS (NT's SMTP) installed. Just slap this script online, fill out & submit form... if CDONTS is installed, you'll get a confirmation email. Script submits to itself, so make SURE to change the form action to the actual script name.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<%
If request.form("action")="Test" then
	on error resume next
	Set Mail = CreateObject("CDONTS.Newmail")
	if err.number = 0 then
	 Mail.From = request.form("UserName")
	 Mail.To = request.form("UserEmail")
	 Mail.Subject = "Your mail works!"
	 Mail.Body = "CDO for NT is available on your server"
	 Mail.Send
	 Set Mail = Nothing

%>
   <tr>
   <td align="center">
  <b>Test Completed</b>
  <p>Your email should arrive shortly
  <% else %>
      <td align="center">
      <b>Test Completed</b>
      <p>Your webserver does not support CDONTS.
     <% end if %>
    </td>
   </tr>

<% Else %>
<tr>
  <td align="center">
    <font face="times new roman">
    <h2><i>CDO for NT Test</i></h2></font>
    <font face="Arial">
    <form action="email.asp" method="POST">
    <p>If your server supports CDO for NTS you will receive e-mail
    <br>confirmation within a few minutes of submitting the form.
    <pre>
      Your Name:   <input type="TEXT" name="UserName" size="25"> 
      Your E-Mail:  <input type="TEXT" name="UserEmail" size="25"> 
    </pre>
    <p><center><input type="SUBMIT" name="action" value="Test">
    <input type="RESET" value="Clear Form"></center></form></font>
    </td>
  </tr>
<% End If %>
</table>