%
Set objreg = Server.CreateObject("ADODB.Recordset")
Set objreg.ActiveConnection = conexao
query = "SELECT * FROM imovel"
objreg.Open query,conexao,3
total = objreg.RecordCount
Function Rd()
Randomize
random = CInt(Rnd()*total-1)
'Response.write total & "
" & random & "
"
objreg.Move random
Rd = objreg("Codigo")
objreg.MoveFirst
End Function
cod_random1 = Rd()
cod_random2 = Rd()
cod_random3 = Rd()
'Response.write cod_random1 & " - " & cod_random2
objreg.Close
%>
| _ | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Todos os direitos reservados. 2006 © |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||