Chili Mail og HTML mail

Jeg får en følgende fejl :

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[undefined]'

::::::::::::::::::::::::::::::::::::::::::

Function unQuote(strTekst)
        strTekst = Trim(strTekst)
        unQuote = Replace(strTekst,"'","''")
    End Function

afsender =  Request.Form("afsender")
afsenderemail = Request.Form("afsenderemail")
modtageremail = Request.Form("modtageremail")
kommentar = unQoute(Request.Form("kommentar"))

HTML = <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
HTML = HTML & "<html>
HTML = HTML & "<head>
HTML = HTML & "<title>Untitled Document</title>
HTML = HTML & "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
HTML = HTML & "</head>
HTML = HTML & "<body>
HTML = HTML & "test
HTML = HTML & "</body>
HTML = HTML & "</html>

Dim oMail
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.From = Request.Form("afsenderemail")
oMail.To  = Request.Form("modtageremail")
oMail.BodyFormat=0
oMail.Subject = Request.Form("modtageremail")
oMail.Body = HTML
oMail.Send
Set oMail = Nothing