<%
Dim objCdonts , strHTML
Set objCdonts = Server.CreateObject("CDONTS.NewMail")
'now we will produce the basis of our email
strHTML = strHTML & "sample html email"
strHTML = strHTML & ""
strHTML = strHTML & "some text to display
"
strHTML = strHTML & "
"
strHTML = strHTML & "asp site"
strHTML = strHTML & ""
'your address
objCdonts.From ="youraddress@email.com"
'recipients address
objCdonts.To = "someones@email.com"
'what is the email about
objCdonts.Subject ="an HTML email example"
'these next lines are vital for HTML formatted mail
objCdonts.BodyFormat = 0
objCdonts.MailFormat = 0
'your message
objCdonts.Body = strHTML
'send that email
objCdonts.Send
Set objCdonts = Nothing
%>