<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_altera_IdiomaseCambios.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 06/05/08 ' '----------------------------------------------------------------------------- ' 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(""&ADMGeral&"") %>

• Alterar Idioma e Câmbio <% Call abre_conexao(conexao) Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") idioma = myFileUpload.Form("idioma") idioma = Split(idioma,"|") codigo_idiomaecambio = request.querystring("codigo_idiomaecambio") If myFileUpload.Form("acao_admin") <> "" Then ' diretório em que a imagem será salva If myFileUpload.Form("img_pais").UserFilename <> "" Then ArquivoIMG = Mid(myFileUpload.Form("img_pais").UserFilename, InstrRev(myFileUpload.Form("img_pais").UserFilename, "\") + 1) img_pais = "config/imagens_conteudo/flags/" & idioma(0) & ".gif" myFileUpload.Form("img_pais").Path = Application("DiretorioImagensConteudo") & "\flags" myFileUpload.Form("img_pais").SaveAs idioma(0) & ".gif" End If End If ' Captura valores postados nome_moeda = myFileUpload.Form("nome_moeda") simbolo_moeda = myFileUpload.Form("simbolo_moeda") valor_moeda = myFileUpload.Form("valor_moeda") valor_moeda = Replace(valor_moeda,",",".") suspenderIdioma = myFileUpload.Form("suspenderIdioma") 'Abre o arquixo XML de configuração da Loja para captura dos valores configurados Call abre_ArquivoXML(Application("XMLArquivoConfiguracao"),FctobjXML,FctobjRoot) 'Define a partir de qual nó será capturado os valores Set configuracao = FctobjRoot.selectSingleNode("dados/configuracao_dados") 'Captura o idioma default para comparação com o idioma a ser Suspenso ou deletado. IdiomaDefault = configuracao.getAttribute("IdiomaDefault") Set RS_IdiomaseCambios = Server.CreateObject("ADODB.Recordset") RS_IdiomaseCambios.CursorLocation = 3 RS_IdiomaseCambios.CursorType = 0 RS_IdiomaseCambios.LockType = 3 RS_IdiomaseCambios.Open "SELECT codigo_idiomaecambio, idioma, sigla_idioma, nome_moeda, simbolo_moeda, valor_moeda, url_imagemPais, desativado FROM IdiomaseCambios WHERE codigo_idiomaecambio = " & codigo_idiomaecambio , Conexao If myFileUpload.form("acao_admin") = "alterar registro" Then msg_resultado = "Idioma e Cambio alterados com sucesso." End if If myFileUpload.Form("acao_admin") <> "" Then If Not RS_IdiomaseCambios.EOF then RS_IdiomaseCambios("idioma") = idioma(1) RS_IdiomaseCambios("sigla_idioma") = idioma(0) RS_IdiomaseCambios("nome_moeda") = nome_moeda RS_IdiomaseCambios("simbolo_moeda") = simbolo_moeda RS_IdiomaseCambios("valor_moeda") = valor_moeda If img_pais <> "" Then RS_IdiomaseCambios("url_imagemPais") = img_pais End If If suspenderIdioma <> "" And IdiomaDefault <> idioma(0) Then RS_IdiomaseCambios("desativado") = "1" Else RS_IdiomaseCambios("desativado") = "0" End if End if RS_IdiomaseCambios.Update Set RS_IdiomasConfig = Server.CreateObject("ADODB.Recordset") RS_IdiomasConfig.CursorLocation = 3 RS_IdiomasConfig.CursorType = 0 RS_IdiomasConfig.LockType = 3 RS_IdiomasConfig.Open "SELECT idioma, sigla_idioma FROM IdiomaseCambios WHERE desativado = 0", Conexao Do Until RS_IdiomasConfig.Eof If suspenderIdioma <> RS_IdiomasConfig("sigla_idioma") Then varIdioma = RS_IdiomasConfig("sigla_idioma") varIdiomasconfigurados = varIdiomasconfigurados & varIdioma &"," End if RS_IdiomasConfig.MoveNext Loop Set RS_IdiomasConfig = Nothing If IdiomaDefault <> idioma(0) Then If varIdiomasconfigurados <> "" Then configuracao.setAttribute "IdiomasConfigurados",Mid(varIdiomasconfigurados,1,Len(varIdiomasconfigurados)-1) Else configuracao.setAttribute "IdiomasConfigurados","" End If Else If suspenderIdioma <> "" Then msg_resultado = "O idioma não pode ser suspenso, ele está configurado como principal idioma da loja." End if End If FctobjXML.save(Application("XMLArquivoConfiguracao")) End if If myFileUpload.form("remover") = "Apagar Idioma e Cambio" Then Response.redirect "ADM_mostra_idiomaecambio.asp?msg_resultado="&msg_resultado End IF %> " enctype="multipart/form-data"> |<%=RS_IdiomaseCambios("idioma")%>"> <%If msg_resultado <> "" Then%> <%End if%> <%=msg_resultado%>  Idioma: <%= RS_IdiomaseCambios("idioma") %>  Nome Moeda: " size="40" class="FORMbox"> Exemplo: Real, Dolar, etc.  Simbolo da Moeda: " size="40" class="FORMbox"> Exemplo: R$, U$, etc.  Valor da moeda : " size="40" class="FORMbox"> Relação ao Real  " <%If RS_IdiomaseCambios("desativado") = "1" Then response.write "checked" End if %>> Suspender a exibição deste idioma. A suspensão, se marcada, fará com que esta opção de idioma não seja exibida no site.  IMAGEM BANDEIRA DO PAÍS  Arquivo: PREVIEW DA IMAGEM <%If RS_IdiomaseCambios("url_imagemPais") <> "" Then%>" name="imagemrel"><%Else%><%End if%>"> <% RS_IdiomaseCambios.Close Set RS_IdiomaseCambios = Nothing Set configuracao = Nothing Set FctobjRoot = Nothing Set FctobjXML = Nothing Set myFileUpload = Nothing %>