Noticias Randomizadas

[marcosalmeida 0]

Olá, pessoal!

Estou tentando fazer este rondonize funcionar no BD/Access, mas nao esta funcionando.

Exibe a noticias mas nao alterna.

 

SEGUE ABAIXO O CODIGO NA INTEGRA. ALGUEM PUDER ME AJUDAR, FICAREI GRATO.

 

 

*****************

 

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("bd/database.mdb")

Conn.open

 

SQL = "SELECT * FROM tbl_noticia"

Set RS = Server.CreateObject("ADODB.Recordset")

RS.open SQL,Conn, 3, 3

 

Randomize

Numero = INT(RND * RS.RecordCount)

Randomize

 

 

SQL = "SELECT top 3 * FROM tbl_noticia WHERE 'id_noticia= & Numero &' order by id_noticia"

 

 

Set RS2 = Conn.execute(SQL)

 

if rs2.eof then

response.write "Notícias sempre atualizadas do setor"

 

else

%><b><%

response.write RS2("data") %>- </b><%

response.write left(RS2("titulo"),55) & "..."

 

End if

 

conn.close

Set conn=nothing

set rs=nothing

set rs2=nothing

%>

 

 

************

[Pensa 0]

Para selecionar registros aleatorios direto na query SQL usando banco Access faça o seguinte:

 

CODE

select * from TABELA where (Sua condição aqui) order by Rnd(Int(Now()*[iD_tabela])-Now()*[iD_tabela])

 

Deu pra entender? Mude a variável "ID_tabela" para o nome do campo com a chave de sua tabela... no seu caso acho que fica mais ou menso assim:

 

CODE

SELECT top 3 * FROM tbl_noticia order by Rnd(Int(Now()*[id_noticia])-Now()*[id_noticia])