Send mail using CDONTS in ASP (VB Script)

Dim objMail
'Create CDONTS.NewMail object
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = ""
objMail.Subject = ""

'you need TO add these lines FOR the mail to be sent in HTML format

objMail.BodyFormat = 0
objMail.MailFormat = 0

objMail.To = ""
'objMail.Bcc = bcc

objMail.Body = ""
objMail.Send

set objMail = nothing