Olá, estou PRECISANDO MESMO fazer um sorteio de um bd, porém tem alguns detalhes:
Esse sorteio tem que ser somente de um determinado codigo até outro, e não de todos codigos....Ou seja, tenho um álbum digital de fotos, nesse álbum tenho os eventos, daí eu insiro as fotos nesse evento e na página incial de nosso site, são sorteadas somente as fotos desse evento. Então por ex.: inseri o último evento, depois 6 fotos nesse evento, daí na página inicial quero sortear somente as fotos desse último evento (ex: (cod) das fotos é de 75 até 81). Então ele teria que sortear somente as de 75 até 81, mas isso não acontece, tá dando mensagem de "Script timeout", acho que é tempo de execução de script esgotado, que quer dizer que ele não tá sorteando o codigo da foto.
Abaixo estou mandando o script que fiz para caso precisar de mais detalhes:
---------------------------------------------------------------
<%
dim rsFoto, rsEvento, tot, evento
set rsEvento=Server.CreateObject("adodb.recordSet")
rsEvento.ActiveConnection=ConnAlbum
rsEvento.source="select Cod, Evento from Eventos where Disp='S' order by Cod Desc"
rsEvento.cursorType=0
rsEvento.cursorLocation=3
rsEvento.lockType=1
rsEvento.Open()
rsEvento.PageSize = 1
evento=rsEvento("Evento")
set rsFoto=Server.CreateObject("adodb.recordSet")
rsFoto.ActiveConnection=ConnAlbum
rsFoto.source="select Count(Cod) as Soma from Fotos where CodEvento="&clng(rsEvento("cod"))&""
rsFoto.cursorType=0
rsFoto.cursorLocation=3
rsFoto.lockType=1
rsFoto.Open()
'tot=rsFoto.RecordCount
tot=rsFoto("Soma")
rsFoto.close()
%>
<%
dim Achou, cod
randomize()
Achou = "False"
while Achou = "False"
'randomize()
cod = int(rnd * tot) + 1
rsFoto.source="select imgP from Fotos where Cod="&clng(cod)&" and CodEvento="&clng(rsEvento("Cod"))&""
rsFoto.open()
if not rsFoto.eof then
Achou = "True"
foto=rsFoto("imgP")
end if
rsFoto.close()
wend
%>
----------------------------------------------------------------------------
É isso, espero que alguém possa me ajudar, pois estou desesperado precisando de uma solução....
Desde já obrigado e aguardo.
