JMail fejl......

Jeg har lavet følgende stykke kode til udsendelse af et nyhedsbrev:

        strConnection = DBConnect
        Set DBConnection = Server.CreateObject(\"ADODB.Connection\")
        DBConnection.Open strConnection
        SQL1=\"SELECT * FROM mailingliste\"
        Set RS1 = DBConnection.Execute(SQL1)
While not RS1.eof
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"websmtp.69shop.dk\"
        JMail.Sender = \"mail@69shop.dk\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Subject = Session(\"overskrift\")
        JMail.AddRecipient RS1(\"email\")
        contentId1 = jmail.AddAttachment(\"d:\\home\\dk69shop\\www\\pics\\\" & LCase(Session(\"tilbud1\")) & \"s.jpg\")
        \'contentId2 = jmail.AddAttachment(\"d:\\home\\dk69shop\\www\\pics\\\" & Session(\"tilbud2\") & \"s.jpg\")
        \'contentId3 = jmail.AddAttachment(\"d:\\home\\dk69shop\\www\\pics\\\" & Session(\"tilbud3\") & \"s.jpg\")
        JMail.Body = \"A nice picture if you can read HTML-mail.\"
        JMail.HTMLBody = \"<html><body bgcolor=\'#000000\' text=\'#cccccc link=\'#4C4849\' vlink=\'#4C4849\' alink=\'#4C4849\'>\"
        jmail.appendHTML \"<img src=\"\"cid:\" & contentId1 & \"\"\">\"
        JMail.Priority = 3
        JMail.Execute
        response.write \"<FONT FACE=\'Arial\' SIZE=\'2\' COLOR=\'#cccccc\'><STRONG>E-mail er sendt til : \"& RS1(\"email\") &\"</STRONG></FONT><BR>\"
        RS1.movenext
Wend
set JMail = nothing
Set RS1=Nothing
DBConnection.Close

Men jeg får følgende fejl:

Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'JMail.appendHTML\'

What\'s wrong????????