Fejl ved EOF i min database

jeg trækker noget ud af databasen og hvis den er EOF så skal der bare udskrives Test!

set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * FROM " & TB_ARTICLE & " WHERE ARTICLE_STATUS = 1 AND CAT_ID = " & ID &" ORDER BY ARTICLE_ID DESC LIMIT 0,4"
    rs.open strSQL,strDNS
    IF NOT RS.EOF = "" THEN
    DO UNTIL RS.EOF
%>

Her skrives fra DB

      <%RS.MOVENEXT
    LOOP
   
    ELSE
    %>
    <tr><td valign="top">Test</td></tr>
    <%
   
    END IF
    'IF RS.EOF = "" THEN RESPONSE.WRITE("asdf") END IF
    rs.close
    set rs = nothing
    %>