Problem med ASPmail

jeg kan egentlig ikke lige se fejlen..

jetg ved ikke om det har nogen indflydelse, men jeg har min sat op på den her måde..:

<%
set conn = server.createobject("adodb.connection")
        conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("a.mdb")
            conn.open

if qid > 0 then
        strsql = "select * from SMSlist where id=" & qid
    else
        strsql = "select * from SMSlist"
    end if
   
    set qrs = server.createobject("adodb.recordset")
            qrs.open strsql, conn, 1, 3
set mailer = server.createobject("SMTPsvg.Mailer")


    do while not qrs.eof
    mailer.FromName    = "TESTNAME"
    mailer.FromAddress = "min@email.com"
    mailer.RemoteHost = "mail.minmailserver.com"

    mailer.AddRecipient qrs("navn"),qrs("mobil")
    mailer.Subject = qrs("id")
    mailer.BodyText    = "Some message"
if mailer.SendMail then
    response.write "<h1>mailer ... OK!</h1>"
else
    response.write "<h1>FEJL: " & mailer.response & "</h1>"
end if

qrs.movenext
    loop

set conn = nothing
set qrs = nothing
set mailer = nothing
%>