fejl i forbindelse med mail loop

<%
'Dimension variables
Dim adoCon             'Holds the Database Connection Object
Dim rs                 'Holds the recordset for the record to be updated
Dim strSQL            'Holds the SQL query for the database

nyhed_id = Request.QueryString("nyhed_id")

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../databaser/news.mdb")

'Create an ADO recordset object
Set rs = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "select DISTINCT email, forfatter, overskrift from kommentar where nyhed_id=" &nyhed_id
'Open the recordset with the SQL query

rs.Open strSQL, adoCon

while not rs.eof
  if rs("email") = session("email") or rs("email")= "" then
  else
    Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "localhost"
        JMail.ContentType = "text/html"
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
        JMail.Sender = "robot@xxx.dk"
        JMail.Subject = "Ny kommentar til en nyhed du er med i på xxx.dk"
        JMail.AddRecipient rs("email")
        JMail.HTMLBody = "Hejsa "& rs("forfatter") & "<br><br>Der er oprettet en kommentar i en nyhed på <a href=""http://www.xxx.dk"">http://www.xxx.dk</a><br>Det er <b><i>"& forfatter & "</i></b> der har oprettet en nyhed med overskriften <b><i>"& rs("overskrift") & "</i></b> som du også deltager i.<br>Log på og se hvem der har skrevet.<br>Mvh Kristian"
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
'        JMail.Execute
response.write jmail.htmlbody
        set JMail = nothing

  End if
  rs.MoveNext
Wend

'response.redirect "ebesked_send.asp?forfatter="& rs("forfatter")&"&overskrift=" & rs("overskrift")&""


'Reset server objects
rs.Close
Set rs = Nothing
Set adoCon = Nothing

%>

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'JMail.AddRecipient'
/news/kommentar_ebesked_hent.asp, line 36


Hvad er der galt?