Der er en fejl i dette script når man sletter fra DB\'en, hvorfor det?

<%
Response.Buffer = True
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"nyheder.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
Sql = \"SELECT top 10 * FROM nyheder ORDER BY Dato DESC\"
Set rs =  Con.Execute(Sql)

SET rs2 = Server.CreateObject(\"ADODB.Connection\")
rs2.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"ledere.mdb\")
Sqlstr = \"Select * FROM users WHERE username = \'\" & session(\"777\") & \"\'\"
set rs2 = rs2.Execute(SQLstr)

IF request(\"mode\") = \"del\" THEN
SQL2 = \"delete from nyheder where id=\"& request(\"id\") &\"\"
Set rs = Con.Execute(SQL2)
END IF
%>

<html>
<head>

<link rel=\"stylesheet\" type=\"text/css\" href=\"level777.css\">

</head>

<body background=\"img\\startile.jpg\" bgproperties=\"fixed\">

<center>

<hr color=\"#00ccff\">

</center>
<blockquote>
<b>- Nyheder:</b><p>

</blockquote>
<center>

<table border=\"0\" cellspacing=\"0\" width=\"400\">
<tr>
<% Do While Not rs.EOF %>
<td bgcolor=\"#00ccff\" style=\"BORDER-TOP: rgb(255,255,255) 1px solid; border-left: rgb(255,255,255) 1px solid; border-bottom: rgb(255,255,255) 1px solid\"><font color=\"black\"><%=rs(\"Dato\")%></font>
<% if not session(\"777\") = \"\" then
if rs2(\"admin\") = true then %>
- <a href=\'nyheder.asp?mode=del&id=<%=rs(\"id\")%>\'>Slet</a>
<% end if
end if %></td>
        <td bgcolor=\"#00ccff\" align=\"right\" style=\"BORDER-TOP: rgb(255,255,255) 1px solid; border-right: rgb(255,255,255) 1px solid; border-bottom: rgb(255,255,255) 1px solid\"><font color=\"black\">Fra <i><%=rs(\"Forfatter\")%></i></font></td>
    </tr>
    <tr>
        <td colspan=\"2\"><%=rs(\"Nyhed\")%></td>
    </tr>
    <tr><td>&nbsp;</td></tr>
<%
rs.MoveNext
Loop
%>

</table>

<hr color=\"#00ccff\">

</body>
</html>