CODIGO: Cual es el error???

[armandoweb]

Amigos:

Tengo una tabla llamada NOTICIAS, dentro de la cual estan todas las noticias de mi sitio y hay un campo denominado TIPO_NOTICIA que las diferencia.
Bien, lo que deseo hacer es listar las tres ultimas noticias de cada categoria en dicha tabla, o sea por el campo TIPO_NOTICIA.
Este seria el codigo, pero me da el siguiente error:

error '80020009'
Exception occurred.
/index.asp, line 315

-------------ESTE ES EL CODIGO

310) sql = "SELECT * FROM Noticias WHERE tipo_noticia='" &noticias& "'"
311) Set result = con.Execute(sql)
312) Dim i
313) i=0
314) While i<2
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) Wend

Desde ya gracias por la ayuda.
Atte.

ARMANDOWEB

[GaRcY]

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.

[armandoweb]

GARCY:

Ahora me da este error:

Microsoft VBScript runtime error '800a01a8'
Object required: ''
/index.asp, line 316

La linea 316 es donde esta:

do While not rs.eof and i<2

No se que puede ser....

GRACIAS

ARMANDOWEB

[GaRcY]

Bien, como podrás ver te dice que se requiere un objeto, ese objeto al principio lo puse mal y luego esdite el mensage, pero por lo que veo tu cojiste el primero que puse, cambia esto:
do While not rs.eof and i<2 por este:
do While not result.eof and i<2

Como podrás ver yo a los recordset les llamo rs, y tu result, mira haber ahora.