SQL-udtræk og loop mv.

Hej :-)

Jeg har rodet mig ud i et (for mig) kompliceret problem. Jeg har følgende:

<%
Dim strStatus, strArtikelID, strFoto, strTitel, strBlikfang
strSQL = "SELECT TOP 3 * FROM Artikler ORDER BY ID DESC"
Set rs = myConn.Execute(strSQL)

While rs.EOF = False
    strStatus = rs("Status")
    If strStatus = "Aktiv" Then
        strArtikelID = Trim(rs("Id"))
        strFoto = Trim(rs("Foto"))
        strTitel = Trim(rs("Titel"))
        strBlikfang = Trim(Left(rs("Blikfang"),160) & " ...")
%>
    <tr>
        <td class="ImgTD"><a href="/VisArtikel.asp?ArtikelID=<%=strArtikelID%>"><img src="/Gfx/Artikler/<%=strFoto%>" class="artikelImg" title="" alt="<%=strTitel%>"></a></td>
        <td class="tekstTD">
            <h2 class="MaBot2"><a href="/VisArtikel.asp?ArtikelID=<%=strArtikelID%>" class="link7"><%=strTitel%></a></h2>
            <%=strBlikfang%><br>
            <div class="MaTop5"><span style="margin-right:2px;" class="link3_pil">&raquo;</span><a href="/VisArtikel.asp?ArtikelID=<%=strArtikelID%>" class="link3"><%=strTitel%></a></div></td>
    </tr>
<%
    End If
    rs.MoveNext
Wend
rs.Close
myConn.Close
Set myConn = Nothing
%>

Meningen med ovenstående er, at koden udvælger og viser de 3 _seneste_ poster hvor databasefeltet 'Status' indeholder ordet 'Aktiv'; Men det fungerer ikke efter hensigten :-/

Hvor går det galt?