<% ' ----------- MIOLO DA PÁGINA ---------- %> <% ' ----------- FIM MIOLO DA PÁGINA ---------- %>
 
<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open strDB Set rs = Server.CreateObject("ADODB.Recordset") Set rs.ActiveConnection = conn %> <% set rs=Nothing conn.Close set conn=Nothing %>
Flats     
<% strSQL = "SELECT * from Realizações_Flats" rs.Open strSQL,conn,3,3 Do While not rs.EOF %> <% rs.MoveNext Loop rs.Close %>
<% if rs("imagem")=1 then %> ')"> <% end if %> <% =rs("Edifício") %> <% if rs("imagem")=1 then %> <% end if %> <% if rs("Em_andamento")=1 then %> <% end if %>  
<% =rs("Endereço") %> <% if rs("Localização")=1 then %>
_localizacao.jpg')">Localização <% end if %> <% if rs("Localização")=2 then %>
Localização   breve... <% end if %> <% if rs("Planta")=1 then %>
_planta.jpg')">Planta <% end if %> <% if rs("Planta")=2 then %>
Planta   breve... <% end if %> <% if rs("Áreas")=1 then %>
_areas.html')">Áreas <% end if %> <% if rs("Áreas")=2 then %>
Áreas <% end if %> <% if rs("Memorial")=1 then %>
_memorial.html')">Memorial <% end if %> <% if rs("Memorial")=2 then %>
Memorial <% end if %>
<% if len(rs("site")) > 0 then %>

Visitar Site do prédio <% end if %>