<%
  if session("permissaomaxima")="zero" and session("permissaoferramenta")<>7 then
  
    ' ---------------------------------------------- Permissão - Verifica se a ferramenta está ativa para o usuário que está tentando acessar.
	' Aviso: Nesse select no fer_codigo colocar o código da ferramenta em questão.
    validapaginasql = "select rel.*, fer.* from tab_permissaorelacionamento rel inner join tab_ferramenta fer on fer.fer_codigo=rel.rel_ferramentacodigo where rel.rel_status=0 and fer.fer_contrato<>0 and fer.fer_codigo=7 and rel.rel_usuariocodigo="&session("codigo")
    set validapagina = objconexao.execute(validapaginasql)

      if validapagina.eof then
      response.redirect("logout.asp")
      elseif validapagina("fer_codigo")=7 then 'Onde está 1 deve ser por o número da ferramenta no Sistema (isso você encontra em Configurações / Adicionar Ferramenta / Codigo
	  session("permissaoferramenta")=empty 
	  session("permissaoferramenta")=7
	  response.addheader "refresh","0"
	  else
	  response.redirect("logout.asp")
	  end if
	  
	validapagina.close
	set validapagina=nothing

  elseif (session("permissaomaxima")="zero" and session("permissaoferramenta")=7) or session("permissaomaxima")="admgeral" then
%>

<%
 Dim aps_Sql, aps_Rs '** aps = alterar pasta

 aps_Sql = "Select * From Tab_C_Arvore where A_Codigo = "&request("id")
 Set aps_Rs = Server.CreateObject("ADODB.Recordset")
 aps_Rs.open aps_Sql, Objconexao
%>

<script type="text/javascript" src="js/jquery.wordcount.js"></script>
<script type="text/javascript">
  <!--//
  //  Developed by Roshan Bhattarai 
  //  Visit http://roshanbh.com.np for this script and more.
  //  This notice MUST stay intact for legal use
  //-->
  $(document).ready(function()
  {
	$('#word_count').wordCount();
  });
</script>

<div class="dir">

  <div></div>
  <% if request("idcontrato")<>"" then %> <% session("idcontrato")=request("idcontrato") %> <% else %> <% end if %>
  <%if session("idcontrato")=2 then%>
  <div class="atencao_amarelo"><b>Atenção:</b> Este recurso não está visível em seu site atualmente, embora esteja disponível para utilização sem custo adicional. Caso queira empregá-lo em seu site, solicite através do email <a href="mailto:suporte@balaminut.com.br" target="_blank">suporte@balaminut.com.br</a>.</div>
  <% elseif session("idcontrato")=3 then%>
  <div class="atencao_vermelho"><b>Atenção:</b> Este recurso não está disponível em seu site atualmente, conforme os termos estabelecidos no contrato. Caso queira empregá-lo em seu site, entre em contato com nosso Departamento Comercial através do email <a href="mailto:vendas@balaminut.com.br" target="_blank">vendas@balaminut.com.br</a>, ou pelo telefone (19) 2105 1000.</div>
  <%end if%>

  <h1>Alterar Galeria de Fotos</h1>

<form method="post" action="galeriafotos/AlterarPasta_Script.asp">

  <div class="dirdir">

    <div class="th" style="margin:0px">Publicação</div>
    <div class="td">
      <div class="campo"><label>Status</label>Publicado</div>
    </div>
    <div class="tdd">
      <input type="submit" name="BtnAdicionar" value="Salvar" class="botao azul" />
    </div>
	
    <div class="th">Outras Informações</div>

    <div class="td">
      <div class="campo">
		<label>Incluir dentro de</label>
		<select name="frmsubpasta">
		<option value="0">(Menu principal)</option>
			<%
			pasta_sql="select * From tab_c_arvore where a_cod_pai=0 and a_tipo='P' order by a_peso desc, a_nome asc"
			set pasta=objconexao.execute(pasta_sql)
			%>
			<%do until pasta.eof%>
			<option value="<%=pasta("a_codigo")%>" <%if aps_rs("a_cod_pai")=pasta("a_codigo") then%>selected="selected"<%end if%>><%=pasta("a_nome")%></option>

				<%
				pasta_sub_sql="select * from tab_c_arvore where a_cod_pai="&pasta("a_codigo")&" and a_tipo='P' order by a_peso desc, a_nome asc"
				set pasta_sub=objconexao.execute(pasta_sub_sql)
				%>
				<%do until pasta_sub.eof%>
				<option value="<%=pasta_sub("a_codigo")%>" <%if aps_rs("a_cod_pai")=pasta_sub("a_codigo") then%>selected="selected"<%end if%>>&nbsp;&nbsp;&nbsp; <%=pasta_sub("a_nome")%></option>

					<%
					pasta_sub2_sql="select * from tab_c_arvore where a_cod_pai="&pasta_sub("a_codigo")&" and a_tipo='P' order by a_peso desc, a_nome asc"
					set pasta_sub2=objconexao.execute(pasta_sub2_sql)
					%>
					<%do until pasta_sub2.eof%>
					<option value="<%=pasta_sub2("a_codigo")%>" <%if aps_rs("a_cod_pai")=pasta_sub2("a_codigo") then%>selected="selected"<%end if%>>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <%=pasta_sub2("a_nome")%></option>
			
						<%
						pasta_sub3_sql="select * from tab_c_arvore where a_cod_pai="&pasta_sub2("a_codigo")&" and a_tipo='P' order by a_peso desc, a_nome asc"
						set pasta_sub3=objconexao.execute(pasta_sub3_sql)
						%>
						<%do until pasta_sub3.eof%>
						<option value="<%=pasta_sub3("a_codigo")%>" <%if aps_rs("a_cod_pai")=pasta_sub3("a_codigo") then%>selected="selected"<%end if%>>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp;<%=pasta_sub3("a_nome")%></option>
			
							<%
							pasta_sub4_sql="select * from tab_c_arvore where a_cod_pai="&pasta_sub3("a_codigo")&" and a_tipo='P' order by a_peso desc, a_nome asc"
							set pasta_sub4=objconexao.execute(pasta_sub4_sql)
							%>
							<%do until pasta_sub4.eof%>
							<option value="<%=pasta_sub4("a_codigo")%>" <%if aps_rs("a_cod_pai")=pasta_sub4("a_codigo") then%>selected="selected"<%end if%>>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;<%=pasta_sub4("a_nome")%></option>

							<%pasta_sub4.movenext%><%loop%>							
			
						<%pasta_sub3.movenext%><%loop%>
			
					<%pasta_sub2.movenext%><%loop%>
	  
				<%pasta_sub.movenext%><%loop%>
		
			<%pasta.movenext%><%loop%>
		</select>
      </div>
      <div class="campo"><label>Ordem</label><input type="text" name="FrmAdpPeso" size="" class="smalltext" value="<%=aps_rs("a_peso")%>" /></div>
      <div class="campo"><label>Oculto</label><input type="checkbox" name="oculto" <%if aps_rs("a_oculto")=1 then%>checked="checked"<%end if%> /></div>

  </div>
  </div>

  <div class="diresq">

    <input type="hidden" name="FrmApsIdp" value="<%=request("Id")%>" />
    <input type="hidden" name="Idp" value= "<%=aps_rs("A_Cod_Pai")%>" />

    <input type="text" size="" name="FrmAdpNome" class="titulo" value="<%=aps_rs("a_nome")%>"/>
    <input type="hidden" size="" name="Frmurl" class="titulo" value="<%=aps_rs("a_url")%>" placeholder="URL" disabled/>

    <div class="th">Descrição da Galeria</div>
    <textarea name="FrmAdpDesc" cols="" rows="10" class="prod_descricao" id="word_count"><%=replace(aps_rs("a_descricao"), "<br />", vbcrlf)%></textarea>
    <div style="font-size:11px; color:#666; padding-left:4px">Palavras digitadas: <span id="display_count">0</span></div><br/><br/>
	
	
 	     <!-- <div class="campo"><label><b>Telefone</b></label><input type="text" name="frmtelefone" size=""  class="titulo"  value="<%=aps_rs("a_telefone")%>"  /></div>
      <div class="campo"><label><b>E-mail</b></label><input type="text" name="frmemail" size=""  class="titulo"  value="<%=aps_rs("a_email")%>" /></div>
      <div class="campo"><label><b>Categoria</b></label><br/>
	    <input type="radio" name="frmcategoria" value="1"  < %if aps_rs("a_status")="1" then%> checked="checked"< %end if%> > Galeria de Fotos<br>
		<input type="radio" name="frmcategoria" value="2"  < %if aps_rs("a_status")="2" then%> checked="checked"< %end if%>> Parceiros<br> 	  
	  </div>-->
	
  </div>

</form>

</div>

<div class="clear"></div>

<%
 aps_Rs.close
 set  aps_Rs = nothing
%>

<%
  else
      response.redirect("logout.asp")
end if
%>