[Resolvido] Noticia em random

Estou tentando fazer com que as notícias postadas apareçam em random, mas não estou tendo sucesso, pois o sistema aparece apenas as 3 últimas

Vejam o meu código

<%
Set nt1 = Server.CreateObject("ADODB.Recordset")

 nt1.Open "SELECT Rnd(1) AS RndOrder, nome, links, ico, Classe1, id FROM links ORDER BY Rnd(7)", DB
 Contar = 0
 Do while not nt1.Eof
 links = nt1("links")
 nome = nt1("nome")
 ico = nt1("ico")
 Classe1 = nt1("Classe1")
 id = nt1("id")
 IF Contar > 2 Then
 exit do
 end if
 if Classe1 = "uteis" Then
 %>

Alguém poderia me ajudar?

Abs