<%
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
%>
METRÓPOLE IMÓVEIS
_
_
_
_
<%
objreg.Open "SELECT * FROM Imovel WHERE Codigo = '"&cod_random1&"'"
Set objreg1 = Server.CreateObject("ADODB.Recordset")
Set objreg1.ActiveConnection = conexao
objreg1.Open "SELECT foto FROM foto WHERE Codigo = '"&cod_random1&"'"
if NOT objreg1.EOF then
foto = objreg1("foto")
Else
foto = "semfoto.jpg"
End if
objreg1.Close
Set objreg1 = Nothing
%>
"><%=objreg("tipo")%> - <% if objreg("transacao") = "locacao" Then Response.write "Locação" Else Response.write "Venda" End if%> <%=objreg("bairro")%>
<%=objreg("endereco")%> <%=formatcurrency(objreg("valor"))%>
<%
Set objreg = Server.CreateObject("ADODB.Recordset")
Set objreg.ActiveConnection = conexao
objreg.Open "SELECT * FROM Imovel WHERE Codigo = '"&cod_random2&"'"
Set objreg1 = Server.CreateObject("ADODB.Recordset")
Set objreg1.ActiveConnection = conexao
objreg1.Open "SELECT foto FROM foto WHERE Codigo = '"&cod_random2&"'"
if NOT objreg1.EOF then
foto = objreg1("foto")
Else
foto = "semfoto.jpg"
End if
objreg1.Close
Set objreg1 = Nothing
%>
"><%=objreg("tipo")%> - <% if objreg("transacao") = "locacao" Then Response.write "Locação" Else Response.write "Venda" End if%> <%=objreg("bairro")%>
<%=objreg("endereco")%> <%=formatcurrency(objreg("valor"))%>
<%
Set objreg = Server.CreateObject("ADODB.Recordset")
Set objreg.ActiveConnection = conexao
objreg.Open "SELECT * FROM Imovel WHERE Codigo = '"&cod_random3&"'"
Set objreg1 = Server.CreateObject("ADODB.Recordset")
Set objreg1.ActiveConnection = conexao
objreg1.Open "SELECT foto FROM foto WHERE Codigo = '"&cod_random3&"'"
if NOT objreg1.EOF then
foto = objreg1("foto")
Else
foto = "semfoto.jpg"
End if
objreg1.Close
Set objreg1 = Nothing
%>
"><%=objreg("tipo")%> - <% if objreg("transacao") = "locacao" Then Response.write "Locação" Else Response.write "Venda" End if%> <%=objreg("bairro")%>
<%=objreg("endereco")%> <%=formatcurrency(objreg("valor"))%>
<%
Set objreg2 = Server.CreateObject("ADODB.Recordset")
Set objreg2.ActiveConnection = conexao
query2 = "SELECT * FROM imovel WHERE vitrine='1'"
objreg2.Open query2
WHILE NOT objreg2.EOF
%>
<%=objreg2("bairro")%>
<% if objreg2("fotovitrine") = "" then fotovitrine = "semfoto.jpg" %>
" width="199" height="173" border="1" style="border-color:#CFD8E3" align="absmiddle">
