Newsletter med SMTPsvg.Mailer

Jeg har brugt en newsletter funktion fra nettet der hedder MySub. Den er originalt lavet til en server med \"CDONTS.NewMail\" jeg har uden held forsøgt at lave den on til \"SMTPsvg.Mailer\".
Jeg ved at database er ok da jeg godt kan tilføje nye emails fra nettet. Selv \"send newsletter\" siden som denne kodestammer fra ser ud til at fungere den melder at der er sendt email men der kommer ikke nogen i min indbakke.
Her er først den originale kode og derefter min nye kodes

-----originale kode---------------------------------
<%
option explicit\'must be declared
%>
<!--#include file=\"config.inc\"--> her i ligger database stien og den er ok
<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails



Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open dsn
SQL = \"SELECT emails from emails\"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request(\"action\")
select case useraction
case \"send\"
    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
        \'-----------------------------------
        \'change to your email!!
        \'-----------------------------------
        objCDO.From = \"eladros@yahoo.com\"
        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(\'has been sent!\');\"
    response.write \"location.href=\'index.asp\'</script>\"
    response.end
end select
rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>
-----nye kode---------------------------------------
<%
option explicit\'must be declared
%>
<!--#include file=\"config.inc\"--> her i ligger database stien og den er ok
<%<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails



Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open dsn
SQL = \"SELECT emails from emails\"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request(\"action\")
select case useraction
case \"send\"
    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 Mailer
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.mit-domain.dk\"
Mailer.FromName = \"fra mig\"
Mailer.FromAddress = \"newsletter@mit-domain.dk\"
Mailer.AddRecipient  \" \",\"emails\"
Mailer.subject = subject
Mailer.BodyText = comm
Mailer.SendMail
rs.movenext

       
       
       
       
    loop
    set Mailer = nothing
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    response.write \"<script>alert(\'has been sent!\');\"
    response.write \"location.href=\'index.asp\'</script>\"
    response.end
end select
rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>
<HTML>