slet fra en tabel ved fejl gå videre. problem

<%
        strSQL = _
        "SELECT * FROM tblAuthor WHERE (Author_ID NOT IN(SELECT  ID FROM Users)) AND (Author_ID NOT IN (1, 2))"
        Set ObjRs = objconn.execute(StrSQL)
    if not objrs.eof then
    do until objrs.eof
    ON error resume next
   
            strSQL = _
        "delete FROM tblAuthor WHERE id=" & objrs("ID")
        objconn.execute(strSQL)
       
        Response.Write(strSQL)
        objrs.movenext
        loop
        end if
%>
jeg gør et eller andet forkert her. prøver lige at skrive ud hvad for poster den vil slette.
men den skriver bare det her ud: SELECT * FROM tblAuthor WHERE (Author_ID NOT IN(SELECT  ID FROM Users)) AND (Author_ID NOT IN (1, 2))
igen og igen lige så mange gange der er poster der skulle have været slettet :(

Any one got some help?