<% Set rsDados = objConn.execute("Select * from menu where link = '"&Re("tipo")&"'") titulo = rsDados("menu") texto = rsDados("texto") %>
Home | <% if local then %> " title="<%=rsDados("menu")%>" class="brdc_antr"><%=rsDados("menu")%> <% else %> " title="<%=rsDados("menu")%>" class="brdc_antr"><%=rsDados("menu")%> <% end if %> <% if Re("sub") <> "" then Set rsSub = objConn.execute("Select * from menu where link = '"&Re("sub")&"' and pai = "&rsDados("id_menu")&"") titulo = rsSub("menu") texto = rsSub("texto") %> | <%=rsSub("menu")%> <% end if %>

<%=titulo%>

<% if Re("tipo") = "clientes-atendidos/" then for i = 1 to 28 %>
.jpg" width="155" height="120" alt="" />
<% next end if %>
<%=texto%>
<% if Re("tipo") = "alguns-projetos/" or Re("tipo") = "novidades/" or Re("tipo") = "clientes-atendidos/" then %> <% else %>
    <% end if %> <% Set rsSubs = objConn.execute("Select * from menu where pai = "&rsDados("id_menu")&" order by ordem") while not rsSubs.eof if local then link = "pagina.asp?tipo="& Re("tipo") & "&sub=" & rsSubs("link") else link = Re("tipo") & rsSubs("link") end if classe = "" if rsSubs("link") = Re("sub") then classe = "class=""menu_int_rght_actv""" end if %>
  • " <%=classe%>><%=rsSubs("menu")%>
    • <% rsSubs.movenext wend %> <% if Re("tipo") = "alguns-projetos/" or Re("tipo") = "novidades/" or Re("tipo") = "clientes-atendidos/" then %> <% else %>
<% end if %>
<% Set rsFotos = objConn.execute("Select * from menu_fotos where id_menu = "&rsDados("id_menu")&"") if not rsFotos.eof then %>

Confira algumas fotos:

<% end if %>