deletar

Fiz o código abaixo, porém não quer excluir, mas tb não dá erro nenhum.

<!--#include file=permissao.asp--><!--#include file=cabecalho.asp--><!--#include file=conexao.asp--><table border=o cellspacing=0 cellpadding=2 width="100%">  <tr>    <td valign=top bgcolor="#CDBDA0"> <font face=arial size=2> <% Dim sql,rsabreconexaoif Request("codnoticia")<> "" then 'verifique se vai excluir	sql="SELECT * FROM noticias Where codnoticia=" & Request("codnoticia")	set rs=oConexao.Execute(sql) if not rs.EOF then  Response.Write "<center><font face=arial size=2 color=#ff0000> Noticia não pode ser excluída </font></center>"	else  sql="DELETE FROM noticias WHERE codnoticia=" & Request("codnoticia")  oConexao.Execute sql	end ifend if sql="SELECT codnoticia,data,titulo,noticias FROM Noticias ORDER BY data DESC"	set rs=oConexao.execute(sql)%><table border=1 width=80% cellspacing=0 cellpadding=2 align=center>        <tr>          <td align=center><font face=arial size=2>Data</font></td>          <td align=center><font face=arial size=2>Título</font></td>   <td align=center><font face=arial size=2>Notícia </font></td>    <td align=center><font face=arial size=2>Clique para excluir </font></td>          </tr>  <%while not rs.EOF %>	<tr>   <td><font face=arial size=2> <%=rs("data")%></font></td>       <td><font face=arial size=2><a href="noticia.asp?codnoticia=<%=rs("codnoticia")%>"><%=rs("titulo")%></font></td>   <td><font face=arial size=2><%=rs("noticias")%></font></td>   <td><font face=arial size=2><a href="noticias.asp?codnoticia=<%=rs("codnoticia")%>">Excluir</a> </font></td>        </tr>  <% rs.movenextwend fechaconexao %></table></font></td></tr></table>

Valeu