<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_altera_textos.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 23/08/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMText&"") Call abre_conexao(conexao) %>

• Edição de textos informativos <% codigo_texto = request("codigo_texto") %> <% If checkIdioma <> "" Then array_checkIdioma = checkIdioma Vetor = Split(checkIdioma, ",") If Ubound(Vetor) <> 0 Then For I = 0 To Ubound(Vetor) If I = 0 Then varAbaClass = "abasON" Else varAbaClass = "abas" End If %> <% Next End If End If %> <%= Pega_DadoBanco("IdiomaseCambios","idioma","sigla_idioma","'"&Vetor(I)&"'")%> "> <% If checkIdioma <> "" Then If InStr(checkIdioma,",") = 0 Then Vetor = checkIdioma VetorIdioma = Vetor VetorCount = 0 Else Vetor = Split(checkIdioma, ",") VetorCount = Ubound(Vetor) End if For I = 0 To VetorCount If VetorIdioma = "" Then VetorIdioma = Vetor(I) End If If VetorIdioma = varLang Then verDisplay = "''" Else verDisplay = "none" End If VarTextosadicionais = Application("DiretorioTemplates")& Trim(VetorIdioma) & "\Configuracao\textosadicionais.xml" %> <% VetorIdioma = "" Next %> <% End If Call fecha_conexao() %> Disponível no site? <% Call Cria_Combo_opcao("ativo|"&VetorIdioma,pegaValorAtrib(VarTextosadicionais,"configuracao/infos[@codigo_texto='"&codigo_texto&"']","ativo"),"") %> Ativa ou desativa o texto no site. Título: " class="FORMbox"> Informe o título que será apresentado. CONTEÚDO DO TEXTO <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor a = pegaValorNode(VarTextosadicionais,"ativo") If a <> "" Then conteudo_texto = a Else conteudo_texto = Empty End If Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = conteudo_texto oFCKeditor.Height = "500" oFCKeditor.Width = "100%" oFCKeditor.Create "texto|"&VetorIdioma %>  IMAGEM: PREVIVEW DA IMAGEM <%If pegaValorAtrib(VarTextosadicionais,"configuracao/infos[@codigo_texto='"&codigo_texto&"']","urlImagem") <> "" then%>" name="imagemrel"> EXCLUIR ESTA IMAGEM<%Else%><%End if%>