<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: ADM_insereAltTextos.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 12/09/06
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

%>
<!--#INCLUDE FILE="../funcoes/funcoes.asp" -->

<!--#INCLUDE FILE="funcoes/ADM_funcoes_checa_senha.asp"-->
<%
'Verifica se o perfil de usuário permite acesso a esta página
If checa_perfil_admin_menu(""&ADMText&"") = false Then
    Response.redirect "ADM_home.asp?msg=SEU PERFIL DE USUÁRIO NÃO PERMITE ACESSO A ESTA PÁGINA"
    Response.end
End If

Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")


If myFileUpload.Form("ArqImg").UserFilename <> "" Then
    ArquivoIMG = Mid(myFileUpload.Form("ArqImg").UserFilename, InstrRev(myFileUpload.Form("ArqImg").UserFilename, "\") + 1) 
    urlImagem = "config/imagens_conteudo/padrao/" & ArquivoIMG
    myFileUpload.Form("ArqImg").Path = Application("DiretorioImagensConteudo") & "/padrao/"
    myFileUpload.Form("ArqImg").SaveAs ArquivoIMG
End If 

checkIdioma = myFileUpload.Form("idioma")
codigo_texto = myFileUpload.Form("codigo_texto")
ExcluirImg = myFileUpload.Form("ExcluirImg")

If ExcluirImg = "sim" Then
    urlImagem = Empty
End if

'Define os valos para consulta ao banco a partir dos idiomas configurados
'Esta primeira condição é quando apenas um idioma está configurado
If InStr(checkIdioma,",") = 0 Then
    'Idiomas configurados na loja
    VetorIdi = checkIdioma
    'Idioma a ser consultado
    VetorIdioma = VetorIdi
    'Código chave a ser consultado
    VetorCodigoChave = codigo_chave
    'Contador (array). O valor é definido pelo número de idiomas configurados, neste caso 1
    'VetorCod = 0
    'Contador (array). O valor é definido pelo número de idiomas configurados, neste caso 1
    VetorCount = 0 
'Quando vários idiomas estão configurados.        
Else
    'Idiomas configurados na loja
    VetorIdi = Split(checkIdioma, ",") 
    'Codigos chave enviados nesta consulta
    VetorCod = Split(codigo_chave, ",") 
    'Contador (array). O valor é definido pelo número de idiomas configurados, neste caso 1
    VetorCount =  Ubound(VetorIdi) 
End if
   
For I = 0 To VetorCount
'Se VetorIdioma for vazio indica que a consulta se dará conforme o número de idiomas configurados. 
If VetorIdioma = "" Then
    'Atribui o valor do idioma a ser consultado, conforme sua posição no array de VetorCount
    VetorIdioma = VetorIdi(I)
End If

VarTextosadicionais = Application("DiretorioTemplates")& Trim(VetorIdioma) & "\Configuracao\textosadicionais.xml"

set objXML = CreateObject("Microsoft.XMLDOM")

    objXML.preserveWhiteSpace = False
    objXML.async = False
    objXML.validateOnParse = True
    objXML.resolveExternals = True
    objXML.preserveWhiteSpace = True
    objXML.load (VarTextosadicionais)

    Set objRoot = objXML.documentElement

        Set configuracao = objRoot.selectSingleNode("configuracao/infos[@codigo_texto='"&codigo_texto&"']")
                configuracao.setAttribute "ativo",myFileUpload.Form("ativo|"&Trim(VetorIdioma)) 
                configuracao.setAttribute "titulo",myFileUpload.Form("titulo|"&Trim(VetorIdioma)) 

                If urlImagem <> "" Then
                    configuracao.setAttribute "urlImagem",urlImagem
                Else
                    If ExcluirImg = "sim" Then
                        configuracao.setAttribute "urlImagem",""
                    End if
                End If
                
                configuracao.text = myFileUpload.Form("texto|"&Trim(VetorIdioma))
        Set configuracao = Nothing

    objXML.save(VarTextosadicionais)

    set objXML = Nothing

VetorIdioma = ""
Next

Set myFileUpload = Nothing

Response.redirect "ADM_altera_textos.asp?codigo_texto="&codigo_texto
%>