Fotos

<%if prd_rs.eof then%>

Não há nenhum album nessa galeria.

<%else%>

<%do until prd_rs.eof%>
• &ref=<%=request("ref")%>"> <% principal_sql = "select * from tab_c_arvore where a_cod_pai="&prd_rs("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(prd_rs("a_nome"),55 ),""",Chr(34)),"'",Chr(39)),",",Chr(44)),"&",Chr(38))%><% if len(prd_rs("a_nome")) > 55 then %> ...<% end if %> <% quantidade_sql = "select count(a_codigo) as quantidade from tab_c_arvore where a_tipo='I' and a_oculto=0 and a_cod_pai="&prd_rs("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 %>
<%prd_rs.movenext%> <%intervalo = intervalo + 1%><%if intervalo = 4 then%><%response.write("
")%><%intervalo = 0%><%end if%> <%loop%>

<%end if%>