<%if request("idpaginainst") = "principal" then%> Página Inicial  >  Produtos em Destaque <%elseif Request.QueryString("url_comp")<>"" or request("log")="in" and (request("loja")<>"formadepagamento") then%> Página Inicial  >  Produtos em Destaque <%else%> Página Inicial <%end if%> <%if request("idpagina")<>"" then%> <%if pagina("mn_esubpasta")=0 then%>   >   "><%=pagina("mn_titulo")%> <%else %> <% subpag_sql = "select * from tab_menu where mn_codigo="&pagina("mn_esubpasta") set subpag = objconexao.execute(subpag_sql) %>   >   "><%=subpag("mn_titulo")%>   >   "><%=pagina("mn_titulo")%> <% subpag.close set subpag=nothing %> <%end if%> <%end if%> <%if request("idpaginainst")="contato" then%>   >   Fale Conosco <%end if%> <%if request("idpaginainst")="noticias" then%>   >   Publicações <%end if%> <%if request("idpaginainst")="noticias2" then%>   >   Últimas Notícias <%end if%> <%if request("produto")="catalogo" or request("produto")="departamento" or request("produto")="produto" then%>   >   Produtos <%end if%> <%if request("produto")="busca" then%>   >   Produtos   >   Busca <%end if%> <%if request("produto")="departamento" then%> <% dep_sql = "select * from tab_produtodepartamento where dep_codigo = "&request("depcodigo") set dep = objconexao.execute(dep_sql) %>   >   "><%=dep("dep_nome")%> <% dep.close set dep=nothing %> <%end if%> <%if request("produto")="produto" then%> <% depcodigo=request("depcodigo") %> <%if depcodigo<>"" then %> <% diretoriopro_sql = "select * from tab_produtoitens where pro_codigo = "&request("procodigo") set diretoriopro = objconexao.execute(diretoriopro_sql) diretoriodep_sql = "select relp.*, dep.* from tab_produtodepartamento dep left join tab_produtorelacionado relp on dep.dep_codigo=relp.relp_departamento where relp.relp_departamento="&request("depcodigo")&" and relp_produto = "&diretoriopro("pro_codigo") set diretoriodep = objconexao.execute(diretoriodep_sql) %>   >   "><%=diretoriodep("dep_nome")%>   >   "><%=replace(replace(replace(replace(diretoriopro("pro_nome"),""",Chr(34)),"'",Chr(39)),",",Chr(44)),"&",Chr(38))%> <% diretoriodep.close set diretoriodep=nothing diretoriopro.close set diretoriopro=nothing %> <%else%> <% diretoriopro_sql = "select * from tab_produtoitens where pro_codigo = "&request("procodigo") set diretoriopro = objconexao.execute(diretoriopro_sql) %>   >   "><%=replace(replace(replace(replace(diretoriopro("pro_nome"),""",Chr(34)),"'",Chr(39)),",",Chr(44)),"&",Chr(38))%> <% diretoriopro.close set diretoriopro=nothing %> <% end if %> <% end if %> <%if request("galerias_fotos")="albuns" then%>   >   Fotos <%end if%> <%if request("galerias_fotos")="fotos" then%> <% cfoto_sql = "select * from tab_c_arvore where a_codigo="&request("idp") set cfoto = objconexao.execute(cfoto_sql) %>   >   Fotos   >   "><%=cfoto("a_nome")%> <% cfoto.close set cfoto=nothing %> <%end if%> <%if request("galerias_videos")="albuns" then%>   >   Vídeos <%end if%> <%if request("galerias_videos")="assistir" and request("albumid")=0 then%>   >   Vídeos <%elseif request("galerias_videos")="assistir" and request("albumid")<>0 then%> <% cvideo_sql = "select * from tab_videos where a_codigo="&request("albumid") set cvideo = objconexao.execute(cvideo_sql) %>   >   Vídeos   >   "><%=cvideo("a_nome")%> <% cvideo.close set cvideo=nothing %> <%end if%> <%if request("loja")="catalogo" or request("loja")="departamento" or request("loja")="produto" then%>   >   Produtos <%end if%> <%if request("loja")="cliente" then%>   >   Editar Cliente <%end if%> <%if request("loja")="cadastrar" then%>   >   Cadastre-se <%end if%> <%if request("loja")="pedido" or request("loja")="pedidomostrar" then%>   >   Pedidos <%end if%> <%if request("loja")="formadepagamento" then%>   >   Loja Virtual   >   Pagamento <%end if%> <%if Request.QueryString("url_comp")<>"" then%>   >   ">Loja Virtual <%end if%> <%if request("log")="in" and request("loja")<>"formadepagamento" then%>   >   Loja Virtual   >   Pagamento   >   Identifique-se <%end if%> <%if request("loja")="busca" then%>   >   Busca <%end if%> <%if request("loja")="departamento" then%> <% diretoriodep_sql = "select * from tab_produtodepartamento where dep_codigo = "&request("depcodigo") set diretoriodep = objconexao.execute(diretoriodep_sql) %>   >   "><%=diretoriodep("dep_nome")%> <% diretoriodep.close set diretoriodep=nothing %> <%end if%> <%if request("loja")="produto" then%> <% depcodigo=request("depcodigo") %> <%if depcodigo<>"" then %> <% diretoriopro_sql = "select * from tab_produtoitens where pro_codigo = "&request("procodigo") set diretoriopro = objconexao.execute(diretoriopro_sql) diretoriodep_sql = "select relp.*, dep.* from tab_produtodepartamento dep left join tab_produtorelacionado relp on dep.dep_codigo=relp.relp_departamento where relp.relp_departamento="&request("depcodigo")&" and relp_produto = "&diretoriopro("pro_codigo") set diretoriodep = objconexao.execute(diretoriodep_sql) %>   >   "><%=diretoriodep("dep_nome")%>   >   "><%=replace(replace(replace(replace(diretoriopro("pro_nome"),""",Chr(34)),"'",Chr(39)),",",Chr(44)),"&",Chr(38))%> <% diretoriodep.close set diretoriodep=nothing diretoriopro.close set diretoriopro=nothing %> <%else%> <% diretoriopro_sql = "select * from tab_produtoitens where pro_codigo = "&request("procodigo") set diretoriopro = objconexao.execute(diretoriopro_sql) %>   >   "><%=replace(replace(replace(replace(diretoriopro("pro_nome"),""",Chr(34)),"'",Chr(39)),",",Chr(44)),"&",Chr(38))%> <% diretoriopro.close set diretoriopro=nothing %> <%end if%> <%end if%> <%if request("info") = "principal" then%> Informações Online <%end if%> <%if request("infoid")<>"" then%> <% set info_diretorio=ocinfo.execute("select mn_titulo, mn_codigo, mn_esubpasta from tab_menu where mn_codigo="&request("infoid")) dir_titulo = info_diretorio("mn_titulo") dir_codigo = info_diretorio("mn_codigo") dir_esubpasta = info_diretorio("mn_esubpasta") %> <% if dir_esubpasta=0 then %>   >   <%=dir_titulo%> <% else %> <% set info_diretorio2=ocinfo.execute("select mn_titulo, mn_codigo, mn_esubpasta from tab_menu where mn_codigo="&dir_esubpasta) dir2_titulo = info_diretorio2("mn_titulo") dir2_codigo = info_diretorio2("mn_codigo") dir2_esubpasta = info_diretorio2("mn_esubpasta") %> <% if dir2_esubpasta=0 then %>   >   <%=dir2_titulo%>   >   <%=dir_titulo%> <%else%> <% set info_diretorio3=ocinfo.execute("select mn_titulo, mn_codigo, mn_esubpasta from tab_menu where mn_codigo="&info_diretorio2("mn_esubpasta")) dir3_titulo = info_diretorio3("mn_titulo") dir3_codigo = info_diretorio3("mn_codigo") dir3_esubpasta = info_diretorio3("mn_esubpasta") %> <% if dir3_esubpasta=0 then %>   >   <%=dir3_titulo%>   >   <%=dir2_titulo%>   >   <%=dir_titulo%> <%else%> <% set info_diretorio4=ocinfo.execute("select mn_titulo, mn_codigo, mn_esubpasta from tab_menu where mn_codigo="&info_diretorio3("mn_esubpasta")) dir4_titulo = info_diretorio4("mn_titulo") dir4_codigo = info_diretorio4("mn_codigo") dir4_esubpasta = info_diretorio4("mn_esubpasta") %>   >   <%=dir4_titulo%>   >   <%=dir3_titulo%>   >   <%=dir2_titulo%>   >   <%=dir_titulo%> <% info_diretorio4.close set info_diretorio4=nothing %> <%end if%> <% info_diretorio3.close set info_diretorio3=nothing %> <%end if%> <% info_diretorio2.close set info_diretorio2=nothing %> <%end if%> <% info_diretorio.close set info_diretorio=nothing %> <%end if%> <% if request("infoid_noticia")="geral" then %>   Notícias <% end if %> <%if request("infoid_noticia")<>"" and request("infoid_noticia")<>"geral" then%> <% set infon_diretorio=ocinfo.execute("select mn_titulo, mn_codigo, mn_esubpasta from tab_noticias where mn_codigo="&request("infoid_noticia")) dir_not_titulo = infon_diretorio("mn_titulo") dir_not_codigo = infon_diretorio("mn_codigo") %> <% if infon_diretorio("mn_esubpasta")=0 then %>   >   Notícias   >   <%=infon_diretorio("mn_titulo")%> <%end if%> <% infon_diretorio.close set infon_diretorio=nothing %> <%end if%>