<% 'categorias Dim arrIDTipo() Dim arrDescricaoTipo() Dim arrCodigo() Dim arrLanceMinimo() Dim arrLote() Dim arrCidade() Dim arrUF() Dim arrMatricula() Dim arrEndereco() Dim varTipo Dim varDe Dim varAte Dim varDados Dim varLote bTipos=False bImoveis=False varTipo=setValueZero(Request.QueryString("tipo")) varDe=setValueZero(Request.QueryString("de")) varAte=setValueZero(Request.QueryString("ate")) varCid=Request.QueryString("cid") varLote=Request.QueryString("lote") varParamDet="tipo="&varTipo&"&de="&varDe&"&ate="&varAte&"&cid="&varCid&"&lote="&varLote function setArrayTipos(vTipo) iCont=0 Query="SELECT DISTINCT vdl_Imoveis_Tipo.O_TIPO_IMOVEL, " Query=Query&"vdl_Imoveis_Tipo.O_DESC_TIPOIMOVEL " Query=Query&"FROM vdl_Imoveis_Tipo INNER JOIN " Query=Query&"vdl_Imoveis ON vdl_Imoveis_Tipo.O_TIPO_IMOVEL = " Query=Query&"vdl_Imoveis.O_TIPO_IMOVEL " if vTipo<>"0" then Query=Query&"WHERE (vdl_Imoveis_Tipo.O_TIPO_IMOVEL = "&vTipo&") " end if Query=Query&" ORDER BY vdl_Imoveis_Tipo.O_DESC_TIPOIMOVEL" Set rs=Conexao.Execute(Query) if rs.EOF then bTipos=False else bTipos=True do while not rs.EOF ReDim Preserve arrIDTipo(iCont) ReDim Preserve arrDescricaoTipo(iCont) arrIDTipo(iCont)=rs("O_TIPO_IMOVEL") arrDescricaoTipo(iCont)=rs("O_DESC_TIPOIMOVEL") iCont=iCont+1 rs.MoveNext loop end if rs.Close Set rs=Nothing end function function setArrayImoveis(vTipo) iCont=0 Query="SELECT vdl_Imoveis.O_CODIGO, " Query=Query&"vdl_Imoveis.O_LANCE_MINIMO, vdl_Imoveis.O_LOTE, vdl_Imoveis.O_CIDADE, " Query=Query&"vdl_Imoveis.O_UF, Left(vdl_Imoveis.O_ENDERECO,70) as asEnder, vdl_Imoveis.O_MATRICULA " Query=Query&"FROM vdl_Imoveis_Tipo INNER JOIN vdl_Imoveis ON vdl_Imoveis_Tipo.O_TIPO_IMOVEL = " Query=Query&" vdl_Imoveis.O_TIPO_IMOVEL " if vTipo<>"0" or varDe<>"0" or varAte<>"0" or varCid<>"0" or varLote<>"" then Query=Query&" WHERE " end if if vTipo<>"0" then Query=Query&" (vdl_Imoveis_Tipo.O_TIPO_IMOVEL = "&vTipo&") " end if if varDe<>"0" then if vTipo<>"0" then Query=Query&" AND " end if Query=Query&" (vdl_Imoveis.O_LANCE_MINIMO >= "&varDe&" " end if if varAte<>"0" then if vTipo<>"0" or varDe<>"0" then Query=Query&" AND " end if Query=Query&" vdl_Imoveis.O_LANCE_MINIMO <= "&varAte&") " end if if varCid<>"" then if vTipo<>"0" or varDe<>"0" or varAte<>"0" then Query=Query&" AND " end if Query=Query&" vdl_Imoveis.O_CIDADE = '"&varCid&"' " end if if varLote<>"" then if vTipo<>"0" or varDe<>"0" or varAte<>"0" or varCid<>"" then Query=Query&" AND " end if Query=Query&" vdl_Imoveis.O_LOTE = "&varLote&" " end if Query=Query&" ORDER BY vdl_Imoveis_Tipo.O_DESC_TIPOIMOVEL" Set rs=Conexao.Execute(Query) if rs.EOF then bImoveis=False else bImoveis=True do while not rs.EOF ReDim Preserve arrCodigo(iCont) ReDim Preserve arrLanceMinimo(iCont) ReDim Preserve arrLote(iCont) ReDim Preserve arrCidade(iCont) ReDim Preserve arrUF(iCont) ReDim Preserve arrMatricula(iCont) ReDim Preserve arrEndereco(iCont) arrCodigo(iCont)=rs("O_CODIGO") if isnull(rs("O_LANCE_MINIMO")) or rs("O_LANCE_MINIMO")="" then arrLanceMinimo(iCont)=formatcurrency(0) else arrLanceMinimo(iCont)=formatcurrency(rs("O_LANCE_MINIMO")) end if arrLote(iCont)=rs("O_LOTE") arrCidade(iCont)=rs("O_CIDADE") arrUF(iCont)=rs("O_UF") arrMatricula(iCont)=rs("O_MATRICULA") arrEndereco(iCont)=rs("asEnder") iCont=iCont+1 rs.MoveNext loop end if rs.Close Set rs=Nothing end function setArrayTipos varTipo %> Vardana Leilões - Imóveis
<% if bTipos=True then if bImoveis=True then %> <% end if end if%> <% end if %>
" name="frmFiltro" id="frmFiltro" method="post">
Tipo:  
Cidade:  
  Lance minímo de: até
      Lote:
Data  QUINTA-FEIRA, DIA 15 DE JANEIRO DE 2009 ÀS 10 H
Local  RUA CYRO CORREIA PEREIRA, 1223 - CIC - CURITIBA/PR
Visitação  DIAS 14/01 DAS 9 ÀS 17:30 H E 15/01 DAS 8:30 ÀS 10 H
<% if bTipos=True then for i=0 to UBound(arrIDTipo) setArrayImoveis arrIDTipo(i) if bImoveis=True then %>
<%for y=0 to UBound(arrCodigo)%> <% next%>
<%=arrDescricaoTipo(i)%> Lote Endereço Cidade/UF Matrícula Lance minímo
<%=arrDescricaoTipo(i)%> <%=arrLote(y)%> <%=arrEndereco(y)%> <%=arrCidade(y)%>/<%=arrUF(y)%> <%=arrMatricula(y)%> <%=arrLanceMinimo(y)%>
<% end if next else %>
Imůveis
Nenhum leil„o agendado
 
<%=fFecharConexao%>