[Resolvido] Noticia em random

[Dias Sanches 0]

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

[xanburzum 169]

olha este exemplo, pode te ajudar

 

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER=SQL Server;SERVER=OFFICEDNS;" & _
                           "UID=SSDB;PWD=;DATABASE=SSDB;"
objConn.Open
    
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM tblItem WHERE ParentID IS NULL", objConn, _
           adOpenStatic, adLockReadOnly

Dim rndMax
rndMax = CInt(objRS.RecordCount)
objRS.MoveFirst
    
Do While Not objRS.EOF
    Response.Write objRS("ID") & "<BR>"
    objRS.MoveNext
LOOP
    
objRS.MoveFirst
    
Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
    
objRS.Move rndNumber

Response.Write objRS("ID")


objRS.Close
Set objRS = Nothing
    
objConn.Close
Set objConn = Nothing
 %>

[Rafael Velloso 0]

dissanches,

 

Se o banco for sql, usa order by newid() :

 

SELECT *

FROM Northwind..Orders

ORDER BY NEWID()

 

Se for mysql usa: order by rand()

[xanburzum 169]

independente do bd, você pode usar direto o

 

Randomize Timer

rndNumber = Int(RND * rndMax)

[BrunoHP 0]

Se for o que entendi tente este exemplo!

 

set sqlNoticias=conn.execute("SELECT Top 1 * FROM noticias order by RND(INT(NOW*codigo)-NOW*codigo)")

[Dias Sanches 0]

Funcionou

 

Coloquei a seguinte codigo:

 

nt1.Open "SELECT Rnd([id]) AS RndOrder, nome, links, ico, Classe1, id FROM links ORDER BY Rnd([id])", DB

[xanburzum 169]

OK, beleza, + 1 resolvido