Notícias Randonicas

[paulofbc 0]

Aê pessoal,Como faço para por no meu sistema de notícias on-line um esquema de mensagens randonicas???T+Paulo

[mibnetweb 0]

Dim rndMaxrndMax = CInt(rsnoticia.RecordCount)rsnoticia.MoveFirstDim rndNumberRandomize TimerrndNumber = Int(RND * rndMax)rsnoticia.Move rndNumberExperimenta esse código ai !!!!!

[dimarcinho 0]

esse codigo permite repetições

 

tipo, vou colocar um exemplo, q o bicicleta postou tem um tempo... tinha um bugzinho, mas tah legal agora

 

o codigo abaixo seleciona uma menina de um array chamado meninas

use a mesma ideia no seu codigo, q nao vai dar repetições

 

<%questoes = "Ana|Sandra|Vanessa|Natalia|Mariana"total_exibicao = 3 ' total de ítens para exibirMeninas = Split(questoes, "|")For k = 0 to Ubound(Meninas) 'lista o nome das meninas	response.Write(Meninas(k) & "<br>")Nextresponse.Write("<br><b>Sorteio das Meninas( ):</b><br><br>")y = 1For i = 1 to total_exibicao  	ArrayQuestoes = Split(questoes, "|")	Randomize()	QuestaoSorteada = Rnd() * UBound(ArrayQuestoes)	QuestaoSorteada = Cint(QuestaoSorteada)	Response.Write y & " - " & ArrayQuestoes(Cint(QuestaoSorteada)) & "<br>" 	If Cint(QuestaoSorteada) = 0 Then  questoes = Replace(questoes, ArrayQuestoes(Cint(QuestaoSorteada)) & "|", "") 	Else  questoes = Replace(questoes, "|" & ArrayQuestoes(Cint(QuestaoSorteada)), "")	End If  y = y + 1Next%>

[]´s

[paulofbc 0]

Vixi, nao entendi esses negócios de meninas e nem como eu adaptarei este código em meu site.Voce pode me explicar melhor?AbraçosPaulo