<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_mostra_idiomaecambio.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 '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' 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&"") %> <% 'abre o banco de dados Call abre_conexao(conexao) msg_resultado = request("msg_resultado") %> <%=Application("NomeLoja")%>
• Alterar Idioma e Cambio

<%If msg_resultado <> "" Then%> <%End if%> <% ' Abre conexao com banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("StringConexaoBanco") ' Le informacoes das marcas Set RS_IdiomaeCambio = Server.CreateObject("ADODB.Recordset") RS_IdiomaeCambio.CursorLocation = 3 RS_IdiomaeCambio.CursorType = 0 RS_IdiomaeCambio.LockType = 3 RS_IdiomaeCambio.Open "SELECT codigo_idiomaecambio, idioma, nome_moeda, simbolo_moeda, valor_moeda, url_imagemPais FROM IdiomaseCambios", Conexao ' Checa se existem marcas no banco de dados If RS_IdiomaeCambio.Eof Then %> <% Else ' Mostra tabela de marcas While Not RS_IdiomaeCambio.EOF If RS_IdiomaeCambio.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If %> > <% RS_IdiomaeCambio.MoveNext Wend End If RS_IdiomaeCambio.Close Conexao.Close Set RS_IdiomaeCambio = Nothing Set Conexao = Nothing %>
<%=msg_resultado%>
BANDEIRA
IDIOMA
MOEDA
VALOR
Não há idioma e taxa de câmbio configurada
<%= RS_IdiomaeCambio("idioma") %>
<%= RS_IdiomaeCambio("nome_moeda") %>
 <%= FormatNumber(RS_IdiomaeCambio("valor_moeda"),3) %>