<% 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 %>

Residenciais
<% strSQL = "SELECT * from Realizações_Residenciais" 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("Planta")=1 then %> _planta.jpg')">Planta <% end if %> <% if rs("Áreas")=1 then %> _areas.html')">Áreas <% end if %> <% if rs("Memorial")=1 then %> _memorial.html')">Memorial Áreafdfdfdfdfds <% end if %>