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