dim x,y
x = 10 ' o la cantidad que necesites
y = 0
Do While Not result.EOF
if y < x then
Response.Write "<p><b><font face=Verdana size=1><a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a></b><br><font color=""#696969"">• " &result.Fields("copete") & "</font></font></p>"
y = y+1
result.MoveNext
else
exit do
end if
Loop
o algo parecido, en cualquier caso checa este link
http://www.tutorial-web.com/asp/loops.asp