:: OverFlats - A número 1 em Flats! ::

<% Dim rs, page, sql, i, imovel page = request("pagina") if page = "" then page = 1 Set rs = Server.CreateObject("ADODB.RecordSet") sql = "SELECT IMV.CODIGO AS IMOVEL, IMV.EDIFICIO AS EDIFICIO, ZONA.DESCRICAO AS ZONA, IMV.DORMITORIOS AS DORMITORIOS, IMV.DATAINCLUSAO AS INCLUSAO " + _ "FROM IMOVEL AS IMV LEFT JOIN ZONA AS ZONA ON ZONA.CODIGO = IMV.ZONA " + _ "WHERE IMV.LANCAMENTO='S' And IMV.PUBLICAR='S' " + _ "ORDER BY IMV.DATAINCLUSAO DESC , IMV.ZONA, IMV.DORMITORIOS DESC" rs.CursorLocation = 3 rs.PageSize = 8 rs.open sql, STR_SQL if ( Not Rs.EOF ) Then rs.AbsolutePage = CInt(page) Do While ( ( Not Rs.EOF ) And rs.AbsolutePage = CInt(page) ) imovel = rs("IMOVEL") %> <% rs.MoveNext Loop %> <% end if %>

A Over disponibiliza o que há de mais recente e moderno nos lançamento de flats, lofts e residences no mercado, atendendo assim a satisfação de nossos clientes.

	<%= rs("EDIFICIO") %>
	<%= RIGHT("0" + CStr(rs("DORMITORIOS")),2) %> Dormitórios - <%= rs("ZONA") %>

<% if ( rs.PageCount > 1 ) Then for i = 1 to rs.PageCount if i > 1 then Response.write(" | ") if i = CInt(page) then %><%=i%><% else %><%=i%><% end if next end if %>