Fandt SQL'en ikke noget, så vis

Et simpelt spørgsmål, men vigtigt for mig.
Jeg skal gennemløbe en tabel / DB for visning af poster relateret til et ID, finder den ikke noget så skriv en besked på skærmen, men den vil ikke - hvad gør jeg galt her ?
---
<%
strSql = "select * from kommentar where aktivitetID = " & Request("id") & " AND aktiv = True ORDER BY dato,ID"
Response.Write strSQL
Set rs2 = Conn.Execute(strSql)
Response.Write "<div align=""center""><center>"
do while not rs2.eof

If rs2("navn") = "" Then
%>
<table border="0" cellpadding="0" cellspacing="0" width="500" id="table1">
    <tr>
        <td><%=rs2("navn")%></td>
        <td align="right"></td>
    </tr>
    <tr>
        <td colspan="2"><%=rs2("tekst")%></td>
    </tr>
    <tr>
        <td><%=rs2("dato")%></td>
    </tr>
</table><br>
<%
Else

    Response.Write "Skal du være den første der skriver en kommentar til denne aktivitet ?"
End If
rs2.movenext
loop
%>