<%
Dim ObjMail
Dim HTML
Set ObjMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "Name Of Store</strong><br>"
HTML = HTML & "Incoming Customer Order</strong></p>"
HTML = HTML & "<p align = ""center"">Bla Bla Bla Bla Bla</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
ObjMail.From= "somebody@somewhere.com"
ObjMail.To="nobody@somewhere.com"
ObjMail.Subject="Incoming Customer Order"
ObjMail.BodyFormat=0
ObjMail.MailFormat=0
ObjMail.Body=HTML
ObjMail.Send
set ObjMail=nothing
%>