Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

RQG_

Exibindo informações de forma aleatória

Recommended Posts

Olá pessoal, estou precisando fazer um script que toda vez em que a pessoa fizer uma pesquisa os dados sejam exibidos em ordem diferente. Alguém pode me ajudar ?? Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Kra eu utilizo um código que cada vez que a pessoa entra no site eh exibido um imagem diferente pra ele (esta imagem eh buscada em db access).

Pode de ser que te ajude. Basta você criar um WHILE. Eh soh tentar.

Se funcionar me avise. Se naum me avise do mesmo jeito, ok!!!! :D

Tah ai o codigo:

 

<!-- Inicio do Código das Imagens dos animais -->

<%

set rsAnimais = Server.CreateObject("ADODB.Recordset")

rsAnimais.ActiveConnection = MM_Bioduvida

rsAnimais.Source = "SELECT * FROM ANIMAIS"

rsAnimais.CursorType = 3

rsAnimais.CursorLocation = 2

rsAnimais.LockType = 1

rsAnimais.Open()

rsAnimais_numRows = 0

 

Dim rndMax

rndMax = CInt(rsAnimais.RecordCount)

rsAnimais.MoveFirst

 

Dim rndNumber

Randomize Timer

rndNumber = Int(RND * rndMax)

rsAnimais.Move rndNumber

%>

<!-- Fim do Código das Imagens dos animais -->

Compartilhar este post


Link para o post
Compartilhar em outros sites

Kra eu utilizo um código que cada vez que a pessoa entra no site eh exibido um imagem diferente pra ele (esta imagem eh buscada em db access).

Pode de ser que te ajude. Basta você criar um WHILE. Eh soh tentar.

Se funcionar me avise. Se naum me avise do mesmo jeito, ok!!!! :D

Tah ai o codigo:

 

<!-- Inicio do Código das Imagens dos animais -->

<%

set rsAnimais = Server.CreateObject("ADODB.Recordset")

rsAnimais.ActiveConnection = MM_Bioduvida

rsAnimais.Source = "SELECT * FROM ANIMAIS"

rsAnimais.CursorType = 3

rsAnimais.CursorLocation = 2

rsAnimais.LockType = 1

rsAnimais.Open()

rsAnimais_numRows = 0

 

Dim rndMax

rndMax = CInt(rsAnimais.RecordCount)

rsAnimais.MoveFirst

 

Dim rndNumber

Randomize Timer

rndNumber = Int(RND * rndMax)

rsAnimais.Move rndNumber

%>

<!-- Fim do Código das Imagens dos animais -->

Eu vou testar e depois te aviso. Só uma perguntinha você já tentou usar esse código com paginação ??? eu tinha um aki, mas esse random ferra tudo a paginação. Esse seu está um pouco diferente.

Então , a idéia seria a mesma.. só que ao invés de imagens eu exibiria textos.

 

Valeu mesmo, vou testar e depois posto os resultados.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Seu código funcionou beleza, mais ainda estou tendo aquele problema com a paginação. Preciso ver como faço para consertar isso, caso você souber me dê um toque. Está acontecendo o seguinte:Ao exibir as informações, está configurado para aparecer 6 registros por página.Ex.:josérobertomarcoscarlosandréjoaquimse passar dos 6 teria uma nova página.[1 | 2] Ele está variando a exibição dos registros tb. Tem hora que exibe 6 (como foi estabelecido) , tem hora que aparece 1 na primeira página e o resto na última, ou senão cria três páginas.Preciso ver isso.Valeu.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.