On Error Resume Next

Hejsa :o)

Jeg bruger følgende til at sende nyheds mail med og ville så gerne kunne fange de email addresser der ikke længer duer.

Dette vil jeg gøre med on error resume next men der gemmes ikke noget i min database er der en der kan svare på hvad jeg gør forkert ?

Dim Sql, Rs, Err, Jmail
Sql = "Select Id, Email From tblNewsletter Order By Id Desc"
Set Rs = Conn.Execute(Sql)

Do While Not Rs.Eof
    On Error Resume Next
    Set JMail          = CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "xxx.xxx.dk"
    JMail.Sender        = "xxx@xxx.dk"
    JMail.SenderName    = "xxxxxxx"
    JMail.Subject      = "xxxxxxx"
    JMail.AddRecipient  Rs("Email")
    JMail.Priority      = 3
    JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.HtmlBody = strBodyMail
    JMail.Execute
    Set JMail = Nothing
    If Err <> 0 Then
        Sql = "Insert Into tblNewsletterLog (MailId, Description, Email) Values ("&Rs("Id")&", '"&Err.Description&"', '"&Rs("Email")&"')"
        Conn.Execute(Sql)
    End If
Rs.MoveNext
Loop

Det skal siges at jeg heller ikke får nogen fejl på koden hvis jeg plinger on error resum next ud :o)

/Websam