Send Email

SOURCE CODE:

<h2>Send Email</h2>

<% if request.Form("WhoToSendTo")="" then %>

   <form method="post" action="282ln10SendMail.asp">

      Your email address: <input name="WhoToSendTo"><br>

      <input type="submit" value="Send Email NOW">

   </form>

<% else 

   WhoToSendTo = request.Form("WhoToSendTo")

   Set objMail = CreateObject("CDONTS.Newmail")

   objMail.Send"ClassServer@halharris.com",WhoToSendTo,"Class Server Email","This is a test from our class 
server..."

   Set objMail = Nothing

   %>

   <b>Your mail has been sent...</b>

<% end if %>