14 replies to this topic

[BoVert]

Ae galera.. to finalizando o desenvolvimento de um site de cobertura de festas em asp..
nesse site tem um sistema de cadastro de nome e email.. tipo uma newsletter.. as pessoas cadastradas concorrem a cortesias para entrar nas festas... eu queria bolar um escript bem simples pra sortear um dos usuarios no banco de dados..
alguem poderia mi dar um dica?
to meio confuso em como fazer isso..

[siola]

oia so esse codigo aqui foi feito pelo Tarkan..eh bem facild e usar ele..

<% AbreConexao
Sql="SELECT * FROM tabela"
Set RS = Conexao.Execute(Sql)

Do Until RS.EOF or RS.BOF
Valores = Valores & RS("ID") & ","
RS.Movenext
Loop
ArraySplit = Split(Left(Valores,Len(Valores)-1),",")
Randomize
x = CInt(Rnd()*Ubound(ArraySplit))
sID = ArraySplit(x)

Sql="SELECT * FROM tabela WHERE id = "&sID&""
Set rsMostra = Conexao.Execute(Sql)
Response.Write "O usuario sorteado foi o do numero "&rsMostra("id")&"!" %>

[BoVert]

Tem como no lugar de mostrar so o ID do ganhador.. motrar os outros dados??

[siola]

Tem como no lugar de mostrar so o ID do ganhador.. motrar os outros dados??

logico..eh so ir pondo "&rsMostra("NOME_DO_CAMPO")&"

o nome do campo eh o nome da coluna no banco de dados..

[BoVert]

a conexão com o banco de dados num ta nesse codigo naum ne?

[BoVert]

Oq tem de errado neste codigo?

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= d:/homepages/caindonagandaia/lista/gsdgjadsgj.mdb"

Sql="SELECT * FROM Email_Members"
Set RS = Conexao.Execute(Sql)

Do Until RS.EOF or RS.BOF
Valores = Valores & RS("Member_Id") & ","
RS.Movenext
Loop
ArraySplit = Split(Left(Valores,Len(Valores)-1),",")
Randomize
x = CInt(Rnd()*Ubound(ArraySplit))
sID = ArraySplit(x)

Sql="SELECT * FROM tabela WHERE Member_Id= "&sID&""
Set rsMostra = Conexao.Execute(Sql)
Response.Write "O usuario sorteado foi o do numero "&rsMostra("Member_Id")&"!" %>

[BoVert]

ja descobri .. brigado quem tentou mi ajudar..

[Foxn]

Pessoal eu queria fazer um simples sorteio randonico com isso:

<%=100 * Rnd%>

Mas a unica coisa que ele me retorna é 70,55475 por que?

compl: O loco meu, uma oisa que devia ser tão simples de se fazer da problema e ninguem sabe resolver, é isso que da trabalhar com a micosoft.

[]'s

[siola]

Pessoal eu queria fazer um simples sorteio randonico com isso:

<%=100 * Rnd%>

Mas a unica coisa que ele me retorna é 70,55475 por que?

compl: O loco meu, uma oisa que devia ser tão simples de se fazer da problema e ninguem sabe resolver, é isso que da trabalhar com a micosoft.

[]'s

Esqueceu do Randomize antes...

tenta assim

<%Randomize
Response.Write 100* Rnd %>

[Foxn]

Que doido cara, vocês que trabalham com asp não tem algum lugar onde podem estudar todos os codigos asp como o pessoal do php tem no php.net?

[]'s

[Foxn]

É por uma lado vc esta certo, eu realmente devia ter visto isso aquele mas:

Java Script: Math.random()*100
Action Script:Math.random()*100
PHP: rand(0,100)

Veja vc, todos eles sorteiam numero randonico de 0 a100 e eu nem vou falar progamas com delphi entre outros que a função que faz sotteio randonico faz realmente sorteio randonico.

Agora não o sr. asp tem de ter o Randomize se não o Rnd é um lixo que não serve pra nada pra que finalidade, só pra complicar a vida de você e vc ainda defende os manés, uns idiotas que nem um tutorial na net te arranjam só pra você ficar que nem trouxa se matando por coisas tão simples, a meu amigo pense melhor antes de defender aqueles que não te respeitam ou você é o unico ser que nunca passou por uma telinha azul.

A ta desculpa a imcopetencita ta entre o monitor e a cadeira, mas sim desse pessoal que desenvolve os programas por que na porpria apresentaçaõ do seu SO ele da telinha azul, de quem sera a culpa, minha

[]'s

[Foxn]

Ai pessoal achei:

Olha o exemplo de rnd deles:

Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.

Um random que só sorteia 5 que util, nem mesmo eles sabem que tem o Randomize

Site: http://msdn.microsoft.com/default.asp

Apenas complementando para não prolongar o topico:
Ta certo que cada linguagem tem o seu jeito mas como pode ver nem na propria explicação deles eles mencionam Randomize dão um exemplo que não funciona, isso é um desrespeito a todos vocês que usam o asp, eles fazem o que querem como querem e vocês que se danem, não é por ai não.

[]'s