Function SendCDOEmail(sTo, sFrom, sSubject, sAttach)

Dim iMsg
Dim iConf
Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
With iMsg
    Set .Configuration = iConf
    .CreateMHTMLBody(sAttach)
    .To = sTo
    .From = sFrom
    .Subject = sSubject
    .Send
End With
End Function

Function SendCDONTSEmail(sTo, sFrom, sSubject, sBody, sAttach)
Dim objCDO

'Create a new CDO objects
Set objCDO = Server.CreateObject("CDONTS.NewMail")

'Enter the sender's email address 
objCDO.To = sTo

'Enter the recipients of this email, use ; to separate the addresses
objCDO.From = sFrom

'Enter the subject of this email
objCDO.Subject = sSubject


objCDO.BodyFormat = 0 'CdoBodyFormatHTML
objCDO.MailFormat = 0 'CdoMailFormatMime

objCDO.AddAttachment(sAttach)

'Enter the body text of the message
objCDO.Body = sBody

'Send the email!
objCDO.Send

'Release the object 
set objCDO=nothing
End Function