function SendMail(recp, subj, message) {
if (recp ==  "" || MAIL_ENGINE == 0 ) return(false);
var newEmail = Server.CreateObject("CDONTS.NewMail ");
if (newEmail) {
newEmail.From = MAIL_FROM_ADDRESS
newEmail.To = recp
newEmail.Cc = MAIL_CC_ADDRESS
newEmail.Bcc = MAIL_BCC_ADDRESS
newEmail.Subject	= subj
newEmail.MailFormat = 0  
newEmail.SetLocaleIDs( 1251 )
newEmail.Body = message
newEmail.Send();
}
else {
Response.Write("Couldn't initialize Email(SMTP) service");
Response.End()
}
}

<%
Dim MailObj
Set MailObj = Server.CreateObject( "CDONTS.NewMail" )
MailObj.Send  "from@me.com" ,  "to@me.com" ,  "My Subject" ,  "My Text" 
%>