Querystring

Er der en der kan fortælle mig hvorfor denne kode giver blank skærm?

<!-- #include file="db.asp" -->
<%
If Request.Querystring("mode") = "" Then
    Response.Redirect("default.asp")
End If
If mode = Request.QueryString ("mode") then
Set con = Server.CreateObject("ADODB.Connection")
con.Open strDSN
Sql = "SELECT * FROM Annoncer WHERE Kategori =" & mode
Set RS = Con.Execute(Sql)

annoncenr = rs("annoncenr")
ID = rs("ID")
overskrift = rs("overskrift")
%>
<br><br>
<p>p</p>

   
<%Do While Not RS.EOF%>   
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1" width="400">
  <tr>
    <td width="150"><%=rs("annoncenr")%></td>
    <td width="250%"><p><a href="show.asp?id=<%=RS("ID")%>"><%=rs("overskrift") %></a></p></td>


  </tr>
</table>
<%
RS.MoveNext
Loop
end if
%>