Jmail istedet for CDONT

Min host understøtter ikke CDONT så jeg prøver at skifte en mailingliste ud med JMail, men det giver problemer. JMail skal hente emails i Access base. Desværre får jeg kun en 500 intern fejl. Håber I kan hjælpe...

<%@ Language=VBScript %>

<%
option explicit\'must be declared
%>
<!--#include file=\"config.inc\"-->
<%
response.buffer = true
dim useraction
dim subject
dim comm
dim emails
dim conn
dim rs
dim sql
dim strSQL

useraction=request(\"action\")
select case useraction
case \"send\"
            dim JMail
            Set Conn = Server.CreateObject(\"ADODB.Connection\")
            Set rs = Server.CreateObject(\"ADODB.Recordset\")
            Conn.Open dsn
            SQL = \"SELECT emails from emails order by id\"
            rs.open sql,conn
        \'    Set rs = Server.CreateObject(\"ADODB.Recordset\")
        \'    rs.ActiveConnection = strConn
        \'    rs.CursorType = adOpenDynamic
        \'    rs.LockType = adLockOptimistic
            rs.Open strSQL
            rs.MoveFirst
            while not rs.EOF
                Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
                JMail.ServerAddress = \"smtp.server.dk\"
                JMail.SenderName = \"Nyhedsbrev\"
                JMail.Sender = \"webmaster@domæne.dk\"
                JMail.Subject = subject
                JMail.Body = comm
                JMail.AddRecipient emails
                JMail.logging = true
                JMail.Execute
                rw rs(\"email\")
                rw(\" sendt <br>\")
                Response.Flush
                rs.MoveNext
                JMail.Close
                set JMail = nothing
            wend
            rs.Close
            set rs = nothing
        \'    Response.Clear
        \'    Response.Redirect (\"index.asp\")

\'Her er den originale       
\'        Set Conn = Server.CreateObject(\"ADODB.Connection\")
\'        Set Rs = Server.CreateObject(\"ADODB.Recordset\")
\'        Conn.Open dsn
\'      SQL = \"SELECT emails from emails order by id\"
\'        rs.open sql,conn
\'        do while not rs.eof
\'        emails=rs(\"emails\")
\'        subject = request.form(\"subject\")
\'        comm = request.form(\"comm\")
\'        Dim objCDO
\'        Set objCDO = Server.CreateObject(\"CDONTS.NewMail\")
\'        objCDO.To = emails
\'        objCDO.From = \"webmaster@elgum.dk\"
\'        objCDO.Subject = subject
\'        objCDO.Body = comm
\'        objCDO.Send
\'        rs.movenext
\'    loop
\'    set objCDO = nothing
\'    rs.close
\'    set rs = nothing
\'    conn.close
\'    set conn = nothing
\'    response.write \"<script>alert(\'er sendt!\');\"
\'    response.write \"location.href=\'index.asp\'</script>\"
\'    end select
%>