Do you know what is wrong with the CDonts? Did you try this?
<%
Sub SendEmail(mailfrom, mailto, subject, msg)
Dim objMail
Set objMail = CreateObject( "CDONTS.Newmail" )
objMail.From = mailfrom
objMail.To = mailto
objMail.Subject = subject
objMail.Body = msg
objMail.Send
Set objMail = Nothing
End Sub
%>