Postagens
Não informado
<!--#include file="includes/config.asp"-->
<!--#include file="abrebanco.asp"-->
<!--#include file="includes/adovbs.inc"-->
<head>
<title><%=titulo%></title>
<%
Function geraID ()
geraID_tmp = ""
Randomize
For i = 1 to 12
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPartPass = Chr(intNum)
Case 2
strPartPass = Chr(intNum)
Case 3
strPartPass = Chr(intNum)
End Select
geraID_tmp = geraID_tmp & strPartPass
Next
geraID = geraID_tmp
End Function
set banco = Server.CreateObject("ADODB.Connection")
banco.Open "DBQ="&Server.MapPath("database/database.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
set rectodos = Server.CreateObject("ADODB.Recordset")
rectodos.open "SELECT * FROM imoveis where NewId is null", banco
do while not rectodos.eof
sql_newid = "UPDATE imoveis SET NewId='"&geraID()&"' WHERE autonum="&rectodos("autonum")
set recnewid = banco.execute(sql_newid)
rectodos.movenext
loop
rectodos.close
set recrandom = Server.CreateObject("ADODB.Recordset")
sql_rnd = "SELECT TOP 6 categoria, autonum, bairro, foto1, desc_destaque, newid FROM imoveis WHERE foto2 <> '' ORDER BY newid"
recrandom.open sql_rnd, banco
sql_casa = "SELECT * FROM imoveis WHERE categoria = 'casa' AND destaque = on ORDER BY autonum DESC"
sql_apto = "SELECT * FROM imoveis WHERE categoria = 'apartamento' AND destaque = on ORDER BY autonum DESC"
sql_comercial = "SELECT * FROM imoveis WHERE categoria = 'comercial' AND destaque = on ORDER BY autonum DESC"
sql_terreno = "SELECT * FROM imoveis WHERE categoria = 'terreno' AND destaque = on ORDER BY autonum DESC"
sql_categ = "SELECT DISTINCT categoria FROM imoveis"
sql_tipo = "SELECT DISTINCT tipo FROM imoveis"
sql_local = "SELECT DISTINCT bairro FROM imoveis"
Set exe_casa = banco.execute(sql_casa)
Set exe_apto = banco.execute(sql_apto)
Set exe_comercial = banco.execute(sql_comercial)
Set exe_terreno = banco.execute(sql_terreno)
Set exe_categ = banco.execute(sql_categ)
Set exe_tipo = banco.execute(sql_tipo)
Set exe_local = banco.execute(sql_local)
%>
obrigada!
