Codigo para randomizar vários valores

[Cereal_Killer 0]

E aí moçada,

Me deu muito trabalho para conseguir descobrir esse código, mas consegui! :lol:

Vou disponibilizá-lo aqui para quem precisar!

OBS.: se quiser alterar o número de registros do resultado final é só alterar o valor de total_banners

 

 

<%

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=d:\sites\radicalfesta\banco\radicalf.mdb"

 

 

Set rs = Conexao.Execute("SELECT * FROM banners WHERE status='on' AND tipo='later'")

 

While not rs.EOF

If ids = "" Then

ids = rs("id")

Else

ids = ids & "," & rs("id")

End If

rs.MoveNext

Wend

 

var_ids = Split(ids, ",")

 

total_ids = UBound(var_ids)

 

total_banners = 5

 

For i = 1 TO total_banners

Randomize()

numero_sorteado = (total_ids * RND)

id_select = id_select

If Instr(id_select, var_ids(numero_sorteado) & ",") <> 0 Then

i = i - 1

else

i = i

end if

 

id_select = id_select & var_ids(numero_sorteado) & ","

Next

 

Set banners = Conexao.Execute("SELECT * FROM banners WHERE id IN ("& id_select &") order by id desc")

while not banners.eof

%>

<br><br>

<%

if banners("redirect") = "pop-up" then

%>

<script>

function showads(){

janela=window.open('../admin/banners/redirbanner.asp?id=<%=banners("id")%>','ShowAd',"WIDTH=400,HEIGHT=300,toollbars=auto,status=auto,maximized=no");

janela.focus

}

</script>

<a href=# onclick=showads() ><img src='../admin/banners/imagens/<%=banners("file1")%>' border='0' align="middle"></a>  

<%

elseif banners("redirect") = "link" then

response.write "<a href='../admin/banners/redirbanner.asp?id="&banners("id")&"' target='_blank'><img border='0' src='../admin/banners/imagens/"&banners("file1")&"'></a>  "

end if

 

set n_visual = conexao.execute("select num_visual from banners where id="&banners("id"))

set atualiza = conexao.execute("update banners set num_visual='"&n_visual("num_visual")+1&"' where id="&banners("id"))

 

banners.movenext

wend

%>

[asp.net 0]

Mas pode acontecer dele exibir o mesmo banner?

[Cereal_Killer 0]

Realmente o bicicleta me deu boa parte do código, aí eu adaptei pra essa necessidade!!!! ;) Fica aí o crédito. :) :) :) O banner não se repetirá, porque cada vez que é identificado um número repetido dentro do código, o Instr detecta e manda repetir o loop de novo. O loop só acaba quando todos os valores que forem sorteados sejam diferentes. ^_^