Banner Randomico

[marciolvs 1]

Boa noite pessoal..

 

Tenho esta programação que ela randomiza um banner do banco de dados..

 

<%
	  Set conexaodb = Server.CreateObject("ADODB.Connection")
	  conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sistema/database.mdb") & ";Persist Security Info=False"
						
	  countsql = "select count(*) as total From Publicidade"						
	  set rs1 = conexaodb.execute(countsql)						
						
	  IF rs1("total") <> 0 Then					 
						
						
		  SQL = "SELECT * FROM Publicidade"						
		set rs3 = conexaodb.execute(SQL)						
		Randomize 
		rs3.Move (Int(rs1("total") * Rnd))
	  %>
						
	 <!-- aqui lista oq vai ser randomico. -->	
	<div id="pubcamp"><img src="sistema/publicidade/<%=rs3("fotop")%>" alt="<%=rs3("Cliente")%>" width="172" border="0" /></div>	
	
	<%
	 Rs3.Movenext
	 'Wend
	 Rs3.close
	 conexaodb.close
	 Set Rs3 = Nothing
			 
	 ELSE
	 	Response.Write("<br><br><center><Span class='txtinho_preto_bold'>Nenhum cadastro efetuado!</span></center>")
	 End IF
	 %>

Qria q invés dele somente listar 1 ele listar 5..

 

Alguém pode me dar uma mão ?

 

Agradeço desde já..

Obrigado..

 

 

Marcio L. Vercanti

[Claudio Neto 3]

Você já tentou utilizar um loop?

 

dim vetor(5)

for quant = 0 to 4
Randomize

		rs3.Move (Int((quant) * Rnd*10))
		vetor(quant) = rs3("cliente")
		banner = rs3("cliente")

		for i = 0 to 4
		   if banner = vetor(i) then
			  i = 0
			  rs3.Move (Int((i+1) * Rnd*10))
			  vetor(quant) = rs3("cliente")
			  banner = rs3("cliente")
		   end if
		next
	  %>

	 <!-- aqui lista oq vai ser randomico. -->	
	<div id="pubcamp"><img src="sistema/publicidade/<%=banner%>" alt="<%=banner%>" width="172" border="0" /></div>	
	
	<%
next

O segundo for, dentro do primeiro serve para conferir se o banner que está sendo usado no momento já foi usado antes. Se sim, ele sorteia de novo o banco de procura outro.

 

Se der algum erro avise ai.