Dim objMail

Set objMail = Server.CreateObject("CDONTS.NewMail")

' send to address
objMail.To = Trim(strTo)

' send from address
objMail.From = Trim(strFrom)

' subject line
objMail.Subject = Trim(strSubject)

' body
objMail.Body = Trim(strMessage)

' send the email
objMail.Send

' destroy to object
Set objMail = Nothing