Dim objCDOMail 
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "abc"
objCDOMail.To = "myemailid@gmail.com"
objCDOMail.Subject = "Enquiry sent from my web site"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0  
objCDOMail.Body = "<h2>Hello</h2><br><b>This is my e-mail in HTML format</b>"
objCDOMail.Importance = 1
objCDOMail.Send  
Set objCDOMail = Nothing

<% 
 
Dim MyCDONTSMail
 
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
 
MyCDONTSMail.From= "abc"
 
MyCDONTSMail.To= "myemailid@gmail.com"
 
MyCDONTSMail.Subject="Enquiry sent from my web site"
 
MyBody = MyBody ="Hello" 
 
MyCDONTSMail.Body= MyBody
 
MyCDONTSMail.Send
 
set MyCDONTSMail=nothing
 
%>