<%
    Dim MyBody
    Dim MyCDONTSMail
%>

<%
    Set MyCDONTSMail = CreateObject("CDO.message")
    MyCDONTSMail.From= "me@email.com"
    MyCDONTSMail.To= "smb@email.com"
    MyCDONTSMail.Subject="My Subject"
    MyBody = "My body content"
	MyCDONT'Mail.BodyFormat = 0 'HTML format, 1 is text format
	MyCDONT'Mail.MailFormat = 0 'HTML format
	MyCDONTSMail.Importance = 2 'High importance
    MyCDONTSMail.TextBody = MyBody
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
%>