Bien, si mal no recuerdo ese tipo de error es del recordset, que ha llegado a eof yo cambiaria unas líneas y lo dejaría asi:
310) sql = "SELECT * FROM Noticias WHERE tipo_noticia='" ¬icias& "'"
311) Set result = con.Execute(sql)
312) Dim i
313) i=0
314) do While not result.eof and i<2 <------------esto
315) Response.Write "<p><b><font face=Arial size=1><a href=noticias/noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a></b></font><br><font face=Arial size=1>" &result.Fields("copete") & "</br></font></p>"
316) i=i+1
317) result.MoveNext
318) loop <------------esto
Pruena haber ahora si te va.
