Aleatório

[smez]

Desenvolvi esse codigo, que aparece 3 produtos na pagina inicial, gostaria de sabe como que eu faço para que cada fez que eu abro a página os produtos aparece aleatóriamente.

<%

regs = 3'Aqui setamos quantos registros serão listados por página

pag = request.querystring("pagina")

if pag = "" Then

pag = 1

end if

set rs = createobject("adodb.recordset")

set rs.activeconnection = abredb

rs.cursortype = 3 'Definimos o cursor a ser utilizado

rs.pagesize = regs

sql = "UPDATE produtos SET status = 'não' WHERE lancamento = 'sim';"

sql = "SELECT * FROM produtos WHERE lancamento <> 'sim';"

rs.open sql

if rs.eof or rs.bof then

response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='1'></font>"

else

rs.absolutepage = pag

contador = 0

%>

<table border="0" width="100%" cellspacing="1">

<%

do while not rs.eof and contador < rs.pagesize

%> <tr>

<td width="100%"><font size="1" face="Verdana" color="#898989"><a href="detalheprod.asp?prod_id=<%=rs("id")%>"><img border="0" src="produto/<%=rs("imagem")%>"><br>

<%=rs("nome")%></a></font></td>

</tr>

<%

contador = contador +1

rs.movenext

loop

%>

</table>

<%

end if

rs.close

set rs = nothing

set conn=nothing

%>

[.Andreia.]

Sérgio,

veja se este link lhe ajuda.

Sinceramente nunca surgiu a necessidade de eu criar uma aplicação que exigesse random...

[fercosmig]

[dnlmosilva]

cara já resolveu?! Se já essa fica só pra constar =)

Eu alteraria a consulta para:

SELECT * FROM produtos WHERE lancamento <> 'sim' order by rnd(<campo chave da tabela>);

o resto fica igual....

[cyberalexxx]

cara já resolveu?! Se já essa fica só pra constar =)

Eu alteraria a consulta para:

SELECT * FROM produtos WHERE lancamento <> 'sim' order by rnd(<campo chave da tabela>);

o resto fica igual....

já ouvi comentários que o uso do rnd sem um randomize gera sempre o mesmo resultado, não sei se é verdade pois nunca testei, eu uso mysql então faço o sorteio através de order by rand()

[pogoball]

ism, sem o randomize ele escolhe sempre o mesmo numero

[dnlmosilva]

Então eu testei esse código no próprio access, como uma nova consulta. Desconheço o fato do randomize.

O que eu sei é que tem de ser definido um campo a randimizar, caso contrário retorna sempre a mesma ordem. Eu sempre utilizo o campo chave pra isso...

[dnlmosilva]

Ah desculpe, agora eu entendi. Seguinte esse RND que utilizei não é do vbscript mas sim uma função SQL.

O RND Vai dentro da consulta SQL que você esta fazendo... E os resultados já são retornados para dentro do RecordSet randomizados.. Ai é só fazer o loop normalmente entendeu?

A outra precisa realmente declarar o randomize!!! Mals...