ASP Source Code for sending email

dim tend12
tend12="Dear User How r u?"
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = "info@sample1.com"
objMail.To = "abc@sample1.com"
objMail.BCC = "amit@sample1.com"
objMail.Subject = "Sample Subject"
objMail.HTMLBody = tend12
objMail.Send
Set objMail = nothing