<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 18/10/06
' Arquivo: ADM_valores_frete.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 27/06/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(""&ADMTarifas&"")
%>
<%
'abre o banco de dados
Call abre_conexao(conexao)
Set RS_Dados = Server.CreateObject("ADODB.Recordset")
RS_Dados.CursorLocation = 3
RS_Dados.CursorType = 0
RS_Dados.LockType = 3
RS_Dados.Open "SELECT codigo_frete, UF, Localidade, indicador, km, p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, advalorem FROM Tabela_frete_personalizado order by codigo_frete asc", Conexao
%>
<%=Application("NomeLoja")%>
