e substituido <%if rs.eof then%> por lo que me has dicho y me da error... te enseño la conexion...
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("elnombrektenga.mdb"))
sql = "SELECT * FROM Noticias WHERE id=" & Request.QueryString("id") & " AND categoria='" & Request.QueryString("categoria")&&qu ot;'"
set result = Con.Execute(sql)
%>
<p align="center"><img border="0" src="http://www.dacoy.com/images/dacoypro.jpg" width="198" height="57"></p>