<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 18/10/06 ' Arquivo: ADM_altera_valores_frete.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 21/08/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# server.scripttimeout = 300 %> <% ' 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) For o=0 to 29 valor_fr = Split(Replace(Request.form("P"&o),", ","#"),"#") For I = 0 to Ubound(valor_fr) Set RS_Produto = Server.CreateObject("ADODB.Recordset") RS_Produto.CursorLocation = 3 RS_Produto.CursorType = 0 RS_Produto.LockType = 3 RS_Produto.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 WHERE codigo_frete ="&I&"", Conexao If request("valorPadrao") <> "" And Request("ativaValorPadrao") = "sim" Then 'Caso o usuário defina um valor de frete único para todas as regiões valor_basePadrao = replace(request("valorPadrao"),".","") valor_basePadrao = replace(valor_basePadrao,",",".") RS_Produto("P"&o) = valor_basePadrao Else 'Caso o usuário defina um valor de frete diferente para cada região. valor_base = replace(valor_fr(I),".","") valor_base = replace(valor_base,",",".") RS_Produto("P"&o) = Trim(valor_base) End if RS_Produto.Update RS_Produto.Close Set RS_Produto = Nothing Next Next Call fecha_conexao() Response.redirect "ADM_valores_frete.asp?msgRet=Dados atualizados" %>