Den skriver sendt men der kommer ikke noget

Jeg har ændret lidt på dette script så det skulle fungere på mit webhotel.
Siden skriver at mailen er sendt men der sker ikke
noget
Jeg tror det er fordi en ikke kan læse
linien
Mailer.AddRecipient \"\", \"emails\" 
Kan nogen hjælpe mig

<%
option explicit\'must be declared
%>
<!--#include virtual=\"admin/config.inc\"-->
<%
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.test.dk\"
    Mailer.FromName = \"test\"
    Mailer.FromAddress = \"kontakt@test.dk\"
    Mailer.Subject = \"subject\"   
>>>    Mailer.AddRecipient \"\", \"emails\"  <<< jeg tror problemet ligger her
    Mailer.BodyText = \"com\"

    rs.movenext
    loop
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    response.write \"<script>alert(\'Er sendt!\');\"
    response.write \"location.href=\'index.asp\'</script>\"
    response.end
end select
rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>