Registros Apareçendo de Forma Randômica

[bossal_jr 0]

Queria que os registros gravados no bd apareçecem de forma randômica na página. Alguém pode me ajudar?

[Edgard Belladonna 0]

ASP [/tr][tr]<%

Set conexao=Server.CreateObject("ADODB.connection")

Set rs=Server.CreateObject("ADODB.recordset")

conexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("nome do bd.mdb")

rs.open ("Select * from registros"), conexao

Do Until RS.EOF or RS.BOF

Valores = Valores & RS("ID") & ","

RS.Movenext

Loop

ArraySplit = Split(Left(Valores,Len(Valores)-1),",")

Randomize

x = CInt(Rnd()*Ubound(ArraySplit))

sID = ArraySplit(x)

Sql="SELECT * FROM banner WHERE id = "&sID&""

Set rsMostra = Conexao.Execute(Sql) %>

 

<%=rsmostra("campo")%>

[/tr]

 

Espero ter ajudado

[bossal_jr 0]

ASP [/tr][tr]<%

Set conexao=Server.CreateObject("ADODB.connection")

Set rs=Server.CreateObject("ADODB.recordset")

conexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("nome do bd.mdb")

rs.open ("Select * from registros"), conexao

Do Until RS.EOF or RS.BOF

Valores = Valores & RS("ID") & ","

RS.Movenext

Loop

ArraySplit = Split(Left(Valores,Len(Valores)-1),",")

Randomize

x = CInt(Rnd()*Ubound(ArraySplit))

sID = ArraySplit(x)

Sql="SELECT * FROM banner WHERE id = "&sID&""

Set rsMostra = Conexao.Execute(Sql) %>

 

<%=rsmostra("campo")%>

[/tr]

 

Espero ter ajudado

Não consegui fazer partindo do código que você postou... a parte do código que gostaria que fosse mostrada de forma randômica é essa:

 

<%

strCount = 5

count = 1

While NOT RSA.EOF

count = count + 1

if count <= strCount then

%>

                  <td><div align="justify">

                      <p align="justify" class="unnamed2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif color="red"><img src="imgs_agep/<% = RSA("imgp") %>" width="70" height="53" hspace="3" vspace="3" border="1" align="left" class="unnamed1"></font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="agenda_m.asp?id=<% =RSA("id") %>" class="style1"> <span class="unnamed1">

                        <% = RSA("Titulo") %>

                        </span></a></strong></font> <span class="style1"><br>

                        <font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">

                        <% = RSA("resumo") %>

                      </font></span> 

                    </div>

                      <span class="unnamed1">

                      <div align="justify"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="red"><a href="coberturas_m.asp?id=<% =RSC("id") %>"><strong> </strong></a></font><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></div>

                    </span></td>

                </tr>

                <%

end if

RSA.movenext

wend

%>

[Edgard Belladonna 0]

hmm... entendi...

você quer q apareçam todos, mas sempre em ordem diferente...

eu pensei q fossem registros rotativos (cada hora um)...

 

mas se é assim q você quer, tenho uma ideia..

coloca pra exibir um aleatorio.

depois abre um outro rs q nao apresente o q ja foi impresso

 

(ex.)

ASP [/tr][tr]<%titulo=response.write ("titulo")

rs.close

rs.open ("select * from tabela where titulo<>'"&titulo&"'), conexao

[/tr]

 

E coloca pra exibir mais um aleatoriamente.

Depois é so ir repetindo, sempre "excluindo" os q ja foram impresso.

Lembre-se q para a terceira exibiçao você tera q excluir 2 (q ja foram exibidos)...

na quarta vez, exclui 3... e assim sucessivamente....

 

(nao vou fazer o codigo todo aki pq dá mó trabalhao... hahahha)

 

Espero ter ajudado.

Caso ainda exista duvida, pode postar aki...

[]

[bossal_jr 0]

Deixe-me tentar explicar melhor o que quero fazer. Tem uma área no site destinada a agenda onde apareçe nome do evento, uma foto e um breve resumo. Nessa área apareçem no total 4 eventos. Gostaria de fazer que esses eventos fosses mostrados de forma randômica.Desculpem qualquer coisa..! é que ainda estou iniciando no asp :huh: