<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 18/10/06 ' Arquivo: ADM_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 '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' 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")%>
• Frete personalizado

<%If Request("msgRet") <> "" Then%> <%End If%>
TABELA DE FRETE PERSONALIZADO
<%=Request("msgRet")%>
<% DO UNTIL RS_Dados.EOF If RS_Dados.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If %> > <% For i=0 to 29 valorTarifa = RS_Dados("P"&i) %> <% Next %> <% RS_Dados.MoveNext LOOP %>
UF LOCALIDADE 0.01 a 1 KG 1.01 a 2 KG 2.01 a 3 KG 3.01 a 4 KG 4.01 a 5 KG 5.01 a 6 KG 6.01 a 7 KG 7.01 a 8 KG 8.01 a 9 KG 9.01 a 10 KG 10.01 a 11 KG 11.01 a 12 KG 12.01 a 13 KG 13.01 a 14 KG 14.01 a 15 KG 15.01 a 16 KG 16.01 a 17 KG 17.01 a 18 KG 18.01 a 19 KG 19.01 a 20 KG 20.01 a 21 KG 21.01 a 22 KG 22.01 a 23 KG 23.01 a 24 KG 24.01 a 25 KG 25.01 a 26 KG 26.01 a 27 KG 27.01 a 28 KG 28.01 a 29 KG 29.01 a 30 KG
<%= RS_Dados("uf")%> <%= RS_Dados("localidade")%><%= FormatNumber(valorTarifa)%><%Else%><%= FormatNumber(0)%><%End if%>" maxlength="5" size="6" onFocus="fncLimpaValue(this,'<%= valorTarifa %>');" onBlur="fncPreencheValue(this, '<%= valorTarifa %>')" class="FORMbox">
 Definir um valor único para todas as localidades.
Valor único: R$
<% RS_Dados.Close Set RS_Dados = nothing %>