<%if titulo_galeria("a_descricao")<>"" then%> <%end if%> <% '*** visualiza os produtos do departamento SET fotos = Server.CreateObject("ADODB.RecordSET") fotos.ActiveConnection = ObjConexao fotos.CursorType = 1 fotos.CursorLocation = 3 fotos.LockType = 3 fotos.Source = "select * from tab_c_arvore where a_tipo='I' and a_oculto=0 and a_cod_pai="&expresidentes&" order by a_peso asc, a_codigo desc" fotos.Open %> <%if fotos.eof then%>

Não há nenhuma foto nesse álbum.

<%else%> <%end if%> <% galfotos_sql = "select * from tab_c_arvore where a_tipo='P' and a_oculto=0 and a_cod_pai="&expresidentes&" order by a_peso asc, a_codigo desc" set galfotos = objconexao.execute(galfotos_sql) %> <%if galfotos.eof then%> <%else%>

<%do until galfotos.eof%>
• &ref=<%=request("ref")%>"> <% principal_sql = "select * from tab_c_arvore where a_cod_pai="&galfotos("a_codigo")&" order by a_principal desc" set principal = objconexao.execute(principal_sql) if not principal.eof then %> ') center no-repeat"> <%else%> Sem Foto <%end if%> <%=replace(replace(replace(replace(left(galfotos("a_nome"),55 ),""",Chr(34)),"'",Chr(39)),",",Chr(44)),"&",Chr(38))%><% if len(galfotos("a_nome")) > 55 then %> ...<% end if %> <% quantidade_sql = "select count(a_codigo) as quantidade from tab_c_arvore where a_tipo='I' and a_cod_pai="&galfotos("a_codigo") set quantidade_rs = objconexao.execute(quantidade_sql) %> (<%=quantidade_rs("quantidade")%> foto<%if quantidade_rs("quantidade")<>1 then%>s<%end if%>) <% quantidade_rs.close set quantidade_rs=nothing %>
<%galfotos.movenext%> <%intervalo = intervalo + 1%><%if intervalo = 4 then%><%response.write("
")%><%intervalo = 0%><%end if%> <%loop%>

<%end if%> <% galfotos.close set galfotos=nothing %>