Sorteio

[bareta]

ai pessoal tava quebrando a cabeça pra tentar fazer um sitema de banner onde o sistema sorteia um cadastro qualquer do banco de dados. ou rsumindo fazer um select aleatorio.(sorteio)

[dark0]

da uma olhada no tópico de funções..

postaram lá sobre isso

t+

[bareta]

aqui ele:

<%
nome = "jose|paulo|william|wellington|giuliana"
total = 3 
Analistas = Split(questoes, "|")

For k = 0 to Ubound(Analistas)
response.Write(Analistas(k) & "<br>")
Next

response.Write("<br><b>Sorteio dos Analistas( ):</b><br><br>")

y = 1

For i = 1 to total
ArrayAnalista = Split(nome, "|")
Randomize()
AnalistaSorteado = Rnd() * UBound(ArrayAnalista)
AnalistaSorteado = CInt(AnalistaSorteado)
Response.Write y & " - " & ArrayAnalista(Cint(AnalistaSorteado)) & "<br>" 
If Cint(AnalistaSorteado) = 0 Then
  nome = Replace(nome, ArrayAnalista(Cint(AnalistaSorteado)) & "|", "") 
Else
  nome = Replace(nome, "|" & ArrayAnalista(Cint(AnalistaSorteado)), "")
End If
 y = y + 1
Next
%>

agora a duvida é o seguinte pra pegar os dados do bd ficaria algo assim:

nome =RecSet("campo") &"|"
total = 3 
Analistas = Split(questoes, "|")

[dark0]

é isso ae..

você testou o codigo ..?:

deu algum erro?

[bareta]

eu usei o seguinte:

<%  
while not RecSet.eof then
nome=RecSet("evento") & "|"
RecSet.movenext
wend
%>

mais da erro, to no trampo e to testando no domain dlx...

[[ GuTo ]]

Tente assim:

<%  
while not RecSet.eof then
nome=nome&RecSet("evento") & "|"
RecSet.movenext
wend
%>

.

[bareta]

ai guto não deu...... fiz um novo codigo....to colocando ele no tópico de funçoes...

<%
'criando a conexão
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("fotos.mdb")
'conta o total de registros
ComandoSQL = "SELECT COUNT(id) AS total FROM eventos"
Set bd = Conexao.Execute(ComandoSQL)
'faz a escolha de um numero aleatorio
randomize() 
peso = Int(bd("total") *Rnd) + 1
bareta=bd("total")
'seleciona o registro aleatorio
ComandoSQL = "SELECT top "&peso&"  * FROM eventos"
Set bd = Conexao.Execute(ComandoSQL)
bd.Move peso - 1
'imprime na tela o registro escolhido
Response.Write bd("evento")%><br><%
'fecha a conexão
Conexao.Close
Set Conexao = Nothing
Set bd = Nothing
'mostra o numero escolhido
Response.Write peso
%>|||<%
'mostra o total de registros
Response.Write bareta
%>