<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "yourname@youremail.com"
objMail.Subject = "A Sample mail sent with CDONTS"
objMail.To = "someone@somwhere.com"
objMail.Body = "Here is the message."
objMail.Send
set objMail = nothing
%>