hvorfor virker dette CDONTS ikke??

Hey jeg sidder og prøver på at lave et CDONTS script for sørste gang men lor** virker sku ikke.. hvad gør jeg forkert?
Koden:

<%
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "HTML = HTML & ""content=""text/html; charset=iso-8859-1"">"""
HTML = HTML & "<title>Sample NewMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "Hey fede.."
HTML = HTML & "</body>"
HTML = HTML & "</html>"

myMail.From = "adr1@adr.dk"
myMail.To = "adr2@adr@dk"
myMail.Subject = "Sample Message"
myMail.BodyFormat = 0 ' CdoBodyFormatHTML
myMail.MailFormat = 0 ' CdoMailFormatMime
myMail.Importance = 1
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
%>