Postagens
Não informado
Tenho uma loja virtual da qual possuí entrega local onde você determina pelo ADMIN DA LOJA para qual estado esse tipo de frete aparecerá e a respectiva descrição.
Ate aí, ÓTIMO... Porém habilito apenas para o estado de São Paulo. No carrinho de compras insiro o CEP de Minas Gerais, ele vê da onde é o CEP e abaixo aparece as opções de frete para essa região. O sistema está funcionando, não aparece nenhuma opção de frete para essa região porém não dá nenhuma mensagem para o comprador que aquela região não é atendida ou algo do tipo. Gostaria de que se o CEP não corresponde a entrega local que essa mensagem apareça seja ela em Janela de aviso ou mesmo na página do carrinho de compras.
Segue abaixo a página do carrinho de compras:
<body
<%if session("cep_entrega") <> "" then%>
onLoad="calcula_frete()"
<%end if%>>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><!--#include file="pg_topo.asp"--></td>
</tr>
<tr>
<td><table width="100%">
<tr>
<td width="150" align="left" valign="top"><!--#include file="pg_menu.asp"--></td>
<!--
O CONTEÚDO VEM AQUI
-->
<%
cotacao = dados("cotacao", "config_geral", "")
moeda = dados("moeda", "config_geral", "")
Conectar
idel = request("excluir_produto")
conj = request("conj")
esp = request("add")
if idel <> "" then
if conj="" then
set ide = conexao.execute("DELETE FROM cesta WHERE produto = "&idel&" and especificacoes="&esp&" and compra='"&session("id_compra")&"' and conjugado='0'")
else
set cj = conexao.execute("SELECT id_1, id_2 FROM produtos_conjugados WHERE idconj='"&conj&"'")
conexao.execute("DELETE FROM cesta WHERE produto='"&cj("id_1")&"' and compra='"&session("id_compra")&"' and conjugado='"&conj&"'")
conexao.execute("DELETE FROM cesta WHERE produto='"&cj("id_2")&"' and compra='"&session("id_compra")&"' and conjugado='"&conj&"'")
cj.close
set cj = nothing
end if
end if
if pform("acao")="quantidade" then
conj= pform("conj")
'verifica sobre conjugados
if conj = "0" then
if pform("espec") <> "0" then
spl = Split(pform("espec"), "#", -1, 1)
set esp = conexao.execute("SELECT * FROM p_esp_estoque WHERE id='"&spl(0)&"'")
if Cint(pform("quantidade")) =< Cint(esp("estoque")) then
grava_estoque = "UPDATE cesta SET quantidade='"&pform("quantidade")&"' WHERE produto='"&pform("id_produto")&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='0'"
elseif Cint(pform("quantidade")) > Cint(esp("estoque")) then
alerta("Desculpe, teremos apenas "&esp("estoque")&" unidade(s) de: "&pform("nome_prod")&"!")
grava_estoque = "UPDATE cesta SET quantidade='"&esp("estoque")&"' WHERE produto='"&pform("id_produto")&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='0'"
end if
esp.close
set esp = nothing
else
set rs33 = conexao.execute("SELECT estoque FROM produtos WHERE id='"&pform("id_produto")&"'")
if Cint(pform("quantidade")) =< Cint(rs33("estoque")) then
grava_estoque = "UPDATE cesta SET quantidade='"&pform("quantidade")&"' WHERE produto='"&pform("id_produto")&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='0'"
elseif Cint(pform("quantidade")) > Cint(rs33("estoque")) then
alerta("Desculpe, teremos apenas "&rs33("estoque")&" unidade(s) de: "&pform("nome_prod")&"!")
grava_estoque = "UPDATE cesta SET quantidade='"&rs33("estoque")&"' WHERE produto='"&pform("id_produto")&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='0'"
end if
rs33.close
set rs33 = nothing
end if
conexao.execute(grava_estoque)
else
set conjugados = conexao.execute("SELECT id_1, id_2 FROM produtos_conjugados WHERE idconj='"&conj&"'")
id_1 = conjugados("id_1")
set pd = conexao.execute("SELECT nome FROM produtos WHERE id='"&id_1&"'")
nome_1 =pd("nome")
pd.close
set pd=nothing
id_2 = conjugados("id_2")
set pd = conexao.execute("SELECT nome FROM produtos WHERE id='"&id_2&"'")
nome_2 =pd("nome")
pd.close
set pd=nothing
conjugados.close
set conjugados = nothing
set rs33 = conexao.execute("SELECT estoque FROM produtos WHERE id='"&id_1&"'")
if Cint(pform("quantidade")) =< Cint(rs33("estoque")) then
grava_estoque = "UPDATE cesta SET quantidade='"&pform("quantidade")&"' WHERE produto='"&id_1&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='"&conj&"'"
elseif Cint(pform("quantidade")) > Cint(rs33("estoque")) then
alerta("Desculpe, teremos apenas "&rs33("estoque")&" unidade(s) de: "&nome_1&"!")
grava_estoque = "UPDATE cesta SET quantidade='"&rs33("estoque")&"' WHERE produto='"&id_1&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='"&conj&"'"
end if
rs33.close
set rs33 = nothing
conexao.execute(grava_estoque)
set rs33 = conexao.execute("SELECT estoque FROM produtos WHERE id='"&id_2&"'")
if Cint(pform("quantidade")) =< Cint(rs33("estoque")) then
grava_estoque = "UPDATE cesta SET quantidade='"&pform("quantidade")&"' WHERE produto='"&id_2&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='"&conj&"'"
elseif Cint(pform("quantidade")) > Cint(rs33("estoque")) then
alerta("Desculpe, teremos apenas "&rs33("estoque")&" unidade(s) de: "&nome_2&"!")
grava_estoque = "UPDATE cesta SET quantidade='"&rs33("estoque")&"' WHERE produto='"&id_2&"' and compra='"&session("id_compra")&"' and especificacoes='"&pform("espec")&"' and conjugado='"&conj&"'"
end if
rs33.close
set rs33 = nothing
conexao.execute(grava_estoque)
'aqui vem a função pra conjugados
end if
end if
set cesta = conexao.execute("SELECT * FROM cesta INNER JOIN produtos ON cesta.produto=produtos.id WHERE compra='"&session("id_compra")&"' order by cesta.conjugado")
%>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td height="30" class="h1"> <strong>Home</strong> »<strong> cesta de compras </strong></td>
</tr>
<%if cesta.eof or cesta.bof then%>
<tr>
<td height="200" align="center"><p class="txtdetalhesnomepro">Seu carrinho de compras está vazio.</p>
<p class="txtdetalhesinfo"><a href="default.asp">Clique aqui e começe agora suas compras.</a></p></td>
</tr>
<%else%>
<tr>
<td align="left"><table width="100%" border="0">
<tr>
<td width="100%"><div align="justify"><span class="txtdetalhesred"><br>Minha Cesta de Compras </span><br>
<span class="txtdetalhesinfo">Confira abaixo o(s) produto(s) comprados e seus respectivos valores.
Para alterar a quantidade comprada digite o novo valor no campo "Qtn." e clique em "Ok".
Para remover um produto clique na lixeira.</span></div></td>
</tr>
</table>
<%if request("erro") <> "" then response.write "<p style=""color:#990000; font-weight:bold"">Erro: "&erro(request("erro"))&"</p>"%>
<br><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="22" align="center" bgcolor="#F0F0F0" class="txtcestainfo" ><strong>Qtn.</strong></td>
<td align="center" bgcolor="#F0F0F0" class="txtcestainfo" ><strong>Foto</strong></td>
<td align="center" bgcolor="#F0F0F0" class="txtcestainfo" ><strong>Produto</strong></td>
<td align="center" bgcolor="#F0F0F0" class="txtcestainfo" ><strong>R$ Un. </strong></td>
<td align="center" bgcolor="#F0F0F0" class="txtcestainfo" ><strong>Total</strong></td>
<td align="center" bgcolor="#F0F0F0" class="txtcestainfo" ><strong>Del</strong></td >
</tr>
<%while not cesta.eof
preco = fnc_pdt_preco(cesta("moeda"), cesta("preco"), cotacao)
total_umprod = cesta("quantidade") * preco
desconto_produto = cesta("desconto")
if desconto_produto <> "0" then
preco_normal = preco
preco_comdesc = desconto(preco,desconto_produto)
valor_desconto = formatnumber(preco - preco_comdesc,2)
preco = preco_comdesc
total_umprod = cesta("quantidade") * preco_comdesc
end if
%>
<tr>
<td align="center" class="borda_cesta" ><table border="0" cellspacing="0">
<form action="cesta.asp" method="post" name="quantidade" id="quantidade">
<tr>
<td><input name="quantidade" class="caixas" style="width:20px" onMouseOver="return overlib('Informe a quantidade desejada e clique em ok para que o sistema verifique se há estoque disponível.');" onMouseOut="return nd();" value="<%=cesta("quantidade")%>" maxlength="2" />
<input name="id_produto" type="hidden" id="id_produto" value="<%=cesta("id")%>">
<input name="espec" type="hidden" id="espec" value="<%=cesta("especificacoes")%>">
<input name="conj" type="hidden" id="conj" value="<%=cesta("conjugado")%>">
<input name="nome_prod" type="hidden" id="nome_prod" value="<%=cesta("nome")%>">
<input name="acao" type="hidden" id="acao" value="quantidade"></td>
<td><input style="border:none" type="image" name="imageField2" <%if cesta("conjugado") <> "0" then%>onClick="avisa_conjugado();"<%end if%> src="imagens/cesta/bt_ok.gif"></td>
</tr>
</form>
</table></td>
<td height="80" align="center" class="borda_cesta"><div align="center">
<% If len(cesta("foto1"))<3 or cesta("foto1") = "grande.gif" then foto1="pequena.gif" else foto1=cesta("foto1") end if%>
<img src="produtos/foto1/pequena/<%= foto1 %>" /></div></td>
<td class="txtdetalhesinfo" ><div align="center"><a href="detalhes.asp?id=<%=cesta("sessao")%>&produto=<%=cesta("id")%>" onMouseOver="return overlib('Ao clicar você será direcionado à página de detalhes de <%=filtra(cesta("nome"))%>. Para voltar a esta página, clique em Meu Carrinho</b> no menu principal.');" onMouseOut="return nd();"><strong><%= cesta("nome") %></strong>
<%if cesta("conjugado")<>"0" then response.write " - Compra Relacionada "&cesta("conjugado")&"" end if%>
</a><br />
<%
if cesta("especificacoes") <> "0" and cesta("especificacoes") <> "" then
spl = Split(cesta("especificacoes"), "#", -1, 1)
for i = 0 to Ubound(spl)
set esp = conexao.execute("SELECT * FROM p_esp_estoque INNER JOIN especificacoes ON p_esp_estoque.id_esp=especificacoes.id WHERE p_esp_estoque.id='"&spl(i)&"'")
response.write "<br><b>"&esp("titulo")&"</b>: "&esp("valor")&"<br>"
next
end if
if desconto_produto <> "0" then
%>
<br>
Você foi contemplado(a) com R$ <%=valor_desconto%> de desconto neste produto!
<!-- Peso: <%=formatnumber(cesta("peso"),3)%> kg-->
<%end if%>
</div></td>
<td align="left" class="txtdetalhesinfo" >
<div align="center">
<%if desconto_produto <> "0" then
%>
<span style="text-decoration:line-through">De: <%= moeda &" "& formatnumber(preco_normal,2) %></span><br>
<strong>Por:
<%end if%>
<%= moeda &" "& formatnumber(preco,2) %></strong></div></td>
<td align="center" class="borda_cesta" ><div align="center" class="txtdetalhesinfo"><%= moeda &" "& formatnumber(total_umprod,2) %></div></td>
<td align="center" class="borda_cesta"><span class="txtdetalhesinfo"><a <%if cesta("conjugado")<> "0" then%>href="cesta.asp?excluir_produto=<%=cesta("id")%>&add=<%=cesta("especificacoes")%>&conj=<%=cesta("conjugado")%>" onClick="return confirm('O produto que você irá excluir faz parte de uma compra conjugada, portanto, os dois produtos serão excluidos. Você poderá comprar apenas um dos produtos, mas não será contemplada com o desconto. Deseja realmente excluir os produtos?')" <%else%>href="cesta.asp?excluir_produto=<%=cesta("id")%>&add=<%=cesta("especificacoes")%>" onClick="return confirm('Deseja realmente excluir este produto de sua cesta de compras?')"<%end if%>onMouseOver="return overlib('Ao clicar você irá remover <b><%=filtra(cesta("nome"))%></b> de sua cesta de compras.');" onMouseOut="return nd();"></soan>
<div align="center"><img src="layout/v4/del.gif" border="0" /></div>
</a></td>
</tr>
</form>
<%
total = total + total_umprod
session("total") = total
cesta.movenext
wend%>
<tr>
<td colspan="4" align="right" class="box_cinza"><span class="txtcestaproduto">Total em Produtos: </span></td>
<td colspan="2" align="center" bgcolor="#E1E1E1" class="arial18aviso"><strong class="txtdetalhesvalor"><%= moeda &" "& formatnumber(total,2) %></strong></td>
</tr>
</table>
<p> </p></td>
</tr>
<tr>
<td align="left"><span class="txtdetalhesred">Cálculo de Frete </span><br></td>
</tr>
<tr>
<td align="left"><form action="oct_atu_cesta.asp" method="post" name="calcular" id="calcular">
<table width="100%" border="0" cellpadding="0" cellspacing="4" bgcolor="#F0F0F0" >
<tr>
<td align="center" bgcolor="#FFFFFF" ><div class="txtdetalhesinfo" id="estado_frete"> Digite o CEP do endereço para entrega e clique no botão "ok" </div></td>
<td height="30" align="right" ><span class="txtcestainfo"><strong>CEP</strong></span><strong>:</strong></td>
<td ><input name="cep1" type="text" class="caixas" id="cep1" style="width: 45px;" onFocus="semTab();" onClick="zera_cep();" onKeyPress="comTab();" onKeyUp="pula(this, 5, cep2);" value="<%=left(session("cep_entrega"),5)%>" maxlength="5" />
<input name="acao" type="hidden" id="acao" value="calcular_frete">
-
<input name="cep2" type="text" class="caixas" id="cep2" style="width: 26px;" onFocus="semTab();" onKeyPress="comTab();" onKeyUp="pula(this, 3, ok);" value="<%=right(session("cep_entrega"),3)%>" maxlength="3" />
<input id="ok" name="ok" type="button" style=" background-image:url(imagens/cesta/ok_fundo.gif); width:21px; height:22px; border:none; color:#FFFFFF; font-size:10px; font-weight:normal; text-align:center" value="Ok" onClick="calcula_frete();"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td align="center"><!--
AQUI APARECE QUANDO O CEP DE DESTINO FOI INFORMADO
-->
<div id="conteudo_ajax"></div>
<!--
AQUI TERMINA O ESPAÇO DE AMOSTRA DE VALORES DE FRETE
--> <script>
function totalcompra(valor){
var num = valor.replace("." , "");
var certo = num.replace(",", ".");
var total = Number(<%=replace(replace(formatnumber(total,2), ".", ""), ",", ".")%>) + Number(certo)
document.getElementById('totalcompra').innerHTML = 'R$ ' + float2moeda(total);}
</script> </td>
</tr>
<tr>
<td align="left"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right" class="box_cinza"><span class="txtcestaproduto">Total da Compra: </span></td>
<td width="23%" align="center" bgcolor="#E1E1E1" class="arial18aviso"><strong>
<div class="txtdetalhesvalor" id="totalcompra"><%= moeda &" "& formatnumber(total,2) %></div>
</strong></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right" valign="bottom"><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align="left"><input name="continuar" type="submit" id="continuar" style="background:url(imagens/cesta/fundo_btn.gif); width:250px; height:25PX; color:#FFFFFF" onClick="continuar_comprando();" value="CONTINUAR COMPRANDO"></td>
<td width="50%" align="right"><input name="prosseguir" type="submit" id="prosseguir" style="background:url(imagens/cesta/fundo_btn.gif); width:250px; height:25PX; color:#FFFFFF" onClick="vai_cesta();" value="PROSSEGUIR COM A COMPRA »"></td>
</tr>
</table></td>
</tr>
<%end if
cesta.close
set cesta = nothing
Desconectar%>
</table></td>
<!--
O CONTEÚDO VEM AQUI
-->
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"><!--#include file="pg_rodape.asp"--></td>
</tr>
</table>
<%= google_analytics()%>
</body>Agora o código de quem calcula o frete que é o arquivo oct_atu_cesta.asp que é mencionado no FORM do código acima:
<!-- #include file="conf_funcoes.asp" -->
<%
SELECT CASE request("acao")
'**********************************************************************************
'FUNÇÃO PARA CALCULAR O FRETE
'**********************************************************************************
CASE "calcular_frete"
Response.Charset="ISO-8859-1"
session("cep_entrega") = pform("cep")
Cn_cep
sql = "SELECT * FROM enderecos WHERE cep='"&session("cep_entrega")&"'"
set vr = cnx.execute(sql)
if vr.bof or vr.eof then
'ARQUIVO RESPONSÁVEL POR PEGAR O ENDEREÇO DO CEP DIGITADO
caminho="http://www.bronzebusiness.com.br/webservices/wscep.asmx/cep?strcep="&session("cep_entrega")&""
Set xml = Server.CreateObject("msxml2.DOMDocument.3.0")
xml.async = false
xml.setProperty "ServerHTTPRequest", true
xml.validateOnParse =false
xml.preserveWhiteSpace = false
folha = xml.Load(caminho)
If Not folha Then
endereco = "invalido"
bairro = "invalido"
cidade = "invalido"
estado = "invalido"
Else
Set logradouro = xml.getElementsByTagName("logradouro")
Set nome = xml.getElementsByTagName("nome")
Set bairro = xml.getElementsByTagName("bairro")
Set uf = xml.getElementsByTagName("UF")
Set cidade = xml.getElementsByTagName("cidade")
if logradouro.length > 0 then
endereco = logradouro.item(0).text & " " & nome.item(0).text
bairro = bairro.item(0).text
cidade = cidade.item(0).text
estado = uf.item(0).text
set gravar = cnx.execute("INSERT INTO enderecos (logradouro, cep, nome, bairro, cidade, uf) values ('"&logradouro.item(0).text&"', '"&session("cep_entrega")&"', '"&nome.item(0).text&"', '"&bairro&"', '"&cidade&"', '"&estado&"')")
else
endereco = "invalido"
bairro = "invalido"
cidade = "invalido"
estado = "invalido"
end if
end if
'aqui é da funçao
else
endereco = vr("logradouro") & " " & vr("nome")
bairro = vr("bairro")
cidade = vr("cidade")
estado = vr("uf")
end if
Des_cep
'pega todos os produtos comprados e calcula o peso
Conectar
set rs = conexao.execute("SELECT * FROM cesta WHERE compra='"&session("id_compra")&"'")
kg = 0
valor = 0
while not rs.eof
set pd = conexao.execute("SELECT preco, peso FROM produtos WHERE id='"&rs("produto")&"'")
kg = kg + (pd("peso") * rs("quantidade"))
valor = valor + (pd("preco") * rs("quantidade"))
rs.movenext
wend
Desconectar
'prepara os ítens para cálculo
um = formatnumber(kg,3)
peso = replace(um, ",", ".")
session("peso") = peso
cep_origem = dados("cep", "config_frete", "")
cep_destino = session("cep_entrega")
valor_declarado = replace(formatnumber(valor,2), ".", "")
'formas de entrega a ser calculadas
sedex_normal = dados("sedex", "config_frete", "")
sedex_acrescimo = dados("sedex_acrescimo", "config_frete", "")
sedex_seguro = dados("sedex_seguro", "config_frete", "")
sedex_10 = dados("sedex_10", "config_frete", "")
dez_acrescimo = dados("sedex_10_acrescimo", "config_frete", "")
dez_seguro = dados("sedex_10_seguro", "config_frete", "")
sedex_cobrar = dados("sedex_cobrar", "config_frete", "")
cobrar_acrescimo = dados("sedex_cobrar_acrescimo", "config_frete", "")
cobrar_seguro = dados("sedex_cobrar_seguro", "config_frete", "")
encomenda_normal = dados("encomenda_normal", "config_frete", "")
en_acrescimo = dados("en_acrescimo", "config_frete", "")
transportadora = dados("transportadora", "config_frete", "")
entrega_local = dados("entrega_local", "config_frete", "")
descricao_local = dados("descricao_entregalocal", "config_frete", "")
regiao_local = dados("regiao_entregalocal", "config_frete", "")
valor_local = dados("valor_entregalocal", "config_frete", "")
area_entregalocal = dados("area_entregalocal", "config_frete", "")
carta_registrada = dados("carta_registrada", "config_frete", "")
peso_cartaregistrada = dados("peso_cartaregistrada", "config_frete", "")
valor_cartaregistrada = dados("valor_cartaregistrada", "config_frete", "")
'identifica estado do cep de destino
If cep_destino >= 69900000 And cep_destino <= 69999999 Then
If cep_destino >= 69900000 And cep_destino <= 69920999 Then
session("estado_destino") = "Acre - Capital"
else
session("estado_destino") = "Acre - Interior"
end if
ElseIf cep_destino >= 57000000 And cep_destino <= 57999999 Then
If cep_destino >= 57000000 And cep_destino <= 57099999 Then
session("estado_destino") = "Alagoas - Capital"
else
session("estado_destino") = "Alagoas - Interior"
end if
ElseIf cep_destino >= 68900000 And cep_destino <= 68999999 Then
If cep_destino >= 68900000 And cep_destino <= 68909999 OR cep_destino >= 68925000 And cep_destino <= 68929999 Then
session("estado_destino") = "Amapá - Capital"
else
session("estado_destino") = "Amapá - Interior"
end if
ElseIf cep_destino >= 69000000 And cep_destino <= 69899999 Then
If cep_destino >= 69000000 And cep_destino <= 69099999 Then
session("estado_destino") = "Amazonas - Capital"
else
session("estado_destino") = "Amazonas - Interior"
end if
ElseIf cep_destino >= 40000000 And cep_destino <= 48999999 Then
If cep_destino >= 40000000 And cep_destino <= 43849999 OR cep_destino >= 44450000 And cep_destino <= 44470999 Then
session("estado_destino") = "Bahia - Capital"
else
session("estado_destino") = "Bahia - Interior"
end if
ElseIf cep_destino >= 60000000 And cep_destino <= 63999999 Then
If cep_destino >= 60000000 And cep_destino <= 61699999 OR cep_destino >= 61900000 And cep_destino <= 61939999 Then
session("estado_destino") = "Ceará - Capital"
else
session("estado_destino") = "Ceará - Interior"
end if
ElseIf cep_destino >= 70000000 And cep_destino <= 72799999 Then
If cep_destino >= 70000000 And cep_destino <= 72799999 OR cep_destino >= 73000999 And cep_destino <= 73699999 Then
session("estado_destino") = "Distrito Federal - Capital"
else
session("estado_destino") = "Distrito Federal - Interior"
end if
ElseIf cep_destino >= 29000000 And cep_destino <= 29999999 Then
If cep_destino >= 29000000 And cep_destino <= 29184999 Then
session("estado_destino") = "Espirito Santo - Capital"
else
session("estado_destino") = "Espirito Santo - Interior"
end if
ElseIf cep_destino >= 72800000 And cep_destino <= 76999999 Then
If cep_destino >= 74000000 And cep_destino <= 74999999 OR cep_destino >= 75250000 And cep_destino <= 75259999 Then
session("estado_destino") = "Goiás - Capital"
else
session("estado_destino") = "Góiás - Interior"
end if
ElseIf cep_destino >= 65000000 And cep_destino <= 65999999 Then
If cep_destino >= 65000000 And cep_destino <= 65099999 Then
session("estado_destino") = "Maranhão - Capital"
else
session("estado_destino") = "Maranhão - Interior"
end if
ElseIf cep_destino >= 78000000 And cep_destino <= 78899999 Then
If cep_destino >= 78000000 And cep_destino <= 78169999 Then
session("estado_destino") = "Mato Grosso - Capital"
else
session("estado_destino") = "Mato Grosso - Interior"
end if
ElseIf cep_destino >= 79000000 And cep_destino <= 79999999 Then
If cep_destino >= 79000000 And cep_destino <= 79124999 Then
session("estado_destino") = "Mato Grosso do Sul - Capital"
else
session("estado_destino") = "Mato Grosso do Sul - Interior"
end if
ElseIf cep_destino >= 30000000 And cep_destino <= 39999999 Then
If cep_destino >= 30000000 And cep_destino <= 34999999 Then
session("estado_destino") = "Minas Gerais - Capital"
else
session("estado_destino") = "Minas Gerais - Interior"
end if
ElseIf cep_destino >= 66000000 And cep_destino <= 68899999 Then
If cep_destino >= 66000000 And cep_destino <= 67999999 Then
session("estado_destino") = "Pará - Capital"
else
session("estado_destino") = "Pará - Interior"
end if
ElseIf cep_destino >= 58000000 And cep_destino <= 58999999 Then
If cep_destino >= 58000000 And cep_destino <= 58099999 Then
session("estado_destino") = "Paraiba - Capital"
else
session("estado_destino") = "Paraiba - Interior"
end if
ElseIf cep_destino >= 80000000 And cep_destino <= 87999999 Then
If cep_destino >= 80000000 And cep_destino <= 83189999 OR cep_destino >= 83300000 And cep_destino <= 83349999 OR cep_destino >= 83400000 And cep_destino <= 83749999 OR cep_destino >= 83800000 And cep_destino <= 83939999 Then
session("estado_destino") = "Paraná - Capital"
else
session("estado_destino") = "Paraná - Interior"
end if
ElseIf cep_destino >= 50000000 And cep_destino <= 56999999 Then
If cep_destino >= 50000000 And cep_destino <= 53989999 OR cep_destino >= 54000000 And cep_destino <= 54799999 Then
session("estado_destino") = "Pernambuco - Capital"
else
session("estado_destino") = "Pernambuco - Interior"
end if
ElseIf cep_destino >= 64000000 And cep_destino <= 64999999 Then
If cep_destino >= 64000000 And cep_destino <= 64999999 Then
session("estado_destino") = "Piauí - Capital"
else
session("estado_destino") = "Piauí - Interior"
end if
ElseIf cep_destino >= 20000000 And cep_destino <= 28999999 Then
If cep_destino >= 20000000 And cep_destino <= 23799999 OR cep_destino >= 24000000 And cep_destino <= 24799999 Then
session("estado_destino") = "Rio de Janeiro - Capital"
else
session("estado_destino") = "Rio de Janeiro - Interior"
end if
ElseIf cep_destino >= 59000000 And cep_destino <= 59999999 Then
If cep_destino >= 59000000 And cep_destino <= 59149999 Then
session("estado_destino") = "Rio Grande do Norte - Capital"
else
session("estado_destino") = "Rio Grande do Norte - Interior"
end if
ElseIf cep_destino >= 90000000 And cep_destino <= 99999999 Then
If cep_destino >= 90000000 And cep_destino <= 91999999 Then
session("estado_destino") = "Rio Grande do Sul - Capital"
else
session("estado_destino") = "Rio Grande do Sul - Interior"
end if
ElseIf cep_destino >= 78900000 And cep_destino <= 78999999 Then
If cep_destino >= 78900000 And cep_destino <= 78924999 Then
session("estado_destino") = "Rondônia - Capital"
else
session("estado_destino") = "Rondônia - Interior"
end if
ElseIf cep_destino >= 69300000 And cep_destino <= 69399999 Then
If cep_destino >= 69300000 And cep_destino <= 69339999 Then
session("estado_destino") = "Roraima - Capital"
else
session("estado_destino") = "Roraima - Interior"
end if
ElseIf cep_destino >= 77000000 And cep_destino <= 77999999 Then
If cep_destino >= 77000000 And cep_destino <= 77299999 Then
session("estado_destino") = "Tocantins - Capital"
else
session("estado_destino") = "Tocantins - Interior"
end if
ElseIf cep_destino >= 88000000 And cep_destino <= 89999999 Then
If cep_destino >= 88000000 And cep_destino <= 88149999 OR cep_destino >= 88160000 And cep_destino <= 888179999 Then
session("estado_destino") = "Santa Catarina - Capital"
else
session("estado_destino") = "Santa Catarina - Interior"
end if
ElseIf cep_destino >= 01000000 And cep_destino <= 19999999 Then
If cep_destino >= 01000000 And cep_destino <= 09999999 Then
session("estado_destino") = "São Paulo - Capital"
else
session("estado_destino") = "São Paulo - Interior"
end if
ElseIf cep_destino >= 49000000 And cep_destino <= 49999999 Then
If cep_destino >= 49000000 And cep_destino <= 49099999 Then
session("estado_destino") = "Sergipe - Capital"
else
session("estado_destino") = "Sergipe - Interior"
end if
End If
'calcula os fretes pelos correios
'41017 - Encomenda Normal
if encomenda_normal = "s" then
en_url = "http://www.correios.com.br/encomendas/precos/calculo.cfm?servico=41106&cepDestino="& cep_destino &"&CepOrigem="& cep_origem &"&peso="& session("peso") &""
Set en = CreateObject("Microsoft.XMLHTTP")
en.open "post", en_url, false
en.send
en_valor = en.responseText
set en = nothing
p = right(en_valor,len(en_valor)-instr(en_valor,"Tarifa"))
s = right(p,len(p)-instr(p,"Tarifa"))
enc = replace(replace(left(right(s,len(s)-6),5),"&",""),".",",")
enc = replace(enc, "e", "")
enc = replace(enc, "r", "")
enc = replace(enc, "a", "")
enc = replace(enc, "u", "")
enc = replace(enc, "i", "")
enc = replace(enc, "r", "")
if en_acrescimo <> 0 and en_acrescimo <> "" then
ence = acrescimo(enc, en_acrescimo)
else
ence = enc
end if
session("en") = ence
end if
'40010 = Sedex Convencional
if sedex_normal = "s" then
if sedex_seguro = "s" then
adicional_sn = "&ValorDeclarado="&valor_declarado&""
end if
sn_url="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40010&CepDestino="& cep_destino &"&CepOrigem="& cep_origem &"&Peso="& peso&""&adicional_sn&""
Set sn = CreateObject("Microsoft.XMLHTTP")
sn.open "post", sn_url,false
sn.send
sn_valor = sn.responseText
set sn = nothing
na = right(sn_valor,len(sn_valor)-instr(sn_valor,"Tarifa"))
nb = right(na,len(na)-instr(na,"Tarifa"))
nc = replace(replace(left(right(nb,len(nb)-6),5),"&",""),".",",")
nd = replace(replace(nc, "e", ""), "r", "")
if sedex_acrescimo <> 0 and sedex_acrescimo <> "" then
ne = acrescimo(nd, sedex_acrescimo)
else
ne = nd
end if
session("sn") = ne
end if
'40215 = Sedex 10
if sedex_10 = "s" then
if dez_seguro = "s" then
adicional_sd = "&ValorDeclarado="&valor_declarado&""
end if
sd_url="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40215&CepDestino="& cep_destino &"&CepOrigem="& cep_origem &"&Peso="& peso&""&adicional_sd&""
Set sd = CreateObject("Microsoft.XMLHTTP")
sd.open "post", sd_url,false
sd.send
sd_valor = sd.responseText
set sd = nothing
da = right(sd_valor,len(sd_valor)-instr(sd_valor,"Tarifa"))
db = right(da,len(da)-instr(da,"Tarifa"))
dc = replace(replace(left(right(db,len(db)-6),5),"&",""),".",",")
dd = replace(replace(dc, "e", ""), "r", "")
if dez_acrescimo <> 0 and dez_acrescimo <> "" then
de = acrescimo(dd, dez_acrescimo)
else
de = dd
end if
session("sd") = de
end if
'40045 = Sedex à Cobrar
if sedex_cobrar = "s" then
if cobrar_seguro = "s" then
adicional_sc = "&ValorDeclarado="&valor_declarado&""
end if
sc_url="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40045&CepDestino="& cep_destino &"&CepOrigem="& cep_origem &"&Peso="& peso&""&adicional_sc&""
Set sc = CreateObject("Microsoft.XMLHTTP")
sc.open "post", sc_url,false
sc.send
sc_valor = sc.responseText
set sc = nothing
ca = right(sc_valor,len(sc_valor)-instr(sc_valor,"Tarifa"))
cb = right(ca,len(ca)-instr(ca,"Tarifa"))
cc = replace(replace(left(right(cb,len(cb)-6),5),"&",""),".",",")
cd = replace(replace(cc, "e", ""), "r", "")
if cobrar_acrescimo <> 0 and cobrar_acrescimo <> "" then
ce = acrescimo(cd, dez_acrescimo)
else
ce = cd
end if
session("sc") = ce
end if
'Entrega Local
if entrega_local = "s" then
if session("estado_destino") = area_entregalocal then
session("motoboy") = True
else
session("motoboy") = False
end if
end if
id = 0
response.write session("estado_destino")%>
### <form action="oct_atu_compra.asp" method="post" name="seguir" id="seguir"> <table width="100%" border
="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" ><table width="100%" border="0" cellspacing="0" cellpadding="0"
>
<tr>
<td height="25" align="left"><span style="font-weight:bold">Endereço para Entrega: </span>Por favor, informe o endereço para Entrega. </td>
</tr>
<tr>
<td height="1" align="left" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="25" align="left" bgcolor="#FBFBFB" ><table width="100%" border
="0" cellpadding="5" style="line-height:25px">
<tr>
<td><table width="100%" border="0">
<tr>
<td width="68" height="25" align="right"><strong>Enderereço:</strong></td>
<td width="1283"><%if endereco<>"invalido" then
response.write endereco
end if%><input name="endereco" <% if endereco = "invalido" then%>type="text" class="caixas" size="50"<%else%>type="hidden" value="<%=endereco%>"<%end if%> id="endereco"/></td>
</tr>
<tr>
<td height="25" align="right"><span class="txtdetalhesopcao">Número:</span></td>
<td><input name="numero" class="caixas" type="text" id="numero" size="4" /></td>
</tr>
<tr>
<td height="25" align="right"><span class="txtdetalhesopcao">Compl.:</span></td>
<td><input name="complemento" class="caixas" type="text" id="complemento" /></td>
</tr>
<tr>
<td height="25" align="right"><span class="txtdetalhesopcao">Cep:</span></td>
<td><span class="txtdetalhesopcao"><%=session("cep_entrega")%></span></td>
</tr>
<tr>
<td height="25" align="right"><span class="txtdetalhesopcao">Bairro:</span></td>
<td><%if bairro<>"invalido" then
response.write bairro
end if%><input name="bairro" <% if bairro = "invalido" then%>type="text" class="caixas" size="50" <%else%>type="hidden" value="<%=bairro%>" <%end if%> id="bairro"/></td>
</tr>
<tr>
<td height="25" align="right"><span class="txtdetalhesopcao">Cidade:</span></td>
<td><%if cidade<>"invalido" then
response.write cidade
end if%><input name="cidade" <% if cidade = "invalido" then%>type="text" class="caixas" size="50"<%else%>type="hidden" value="<%=cidade%>"<%end if%> id="cidade"/></td>
</tr>
<tr>
<td height="25" align="right"><span class="txtdetalhesopcao">Estado:</span></td>
<td><%if estado<>"invalido" then
response.write estado
end if%><input name="estado" <% if estado = "invalido" then%>type="text" class="caixas" size="50"<%else%>type="hidden" value="<%=estado%>"<%end if%> id="estado"/></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<p><span style="font-weight:bold">Forma de Entrega: </span></p></td>
</tr>
<tr>
<td height="1" align="left" bgcolor="#CCCCCC"></td>
</tr>
<%if session("sn") <> 0 and sedex_normal="s" and session("sotransportadora") <> "Sim" then
id = id + 1 %>
<tr>
<td bgcolor="#FBFBFB"><table width="100%" border="0" cellpadding="5">
<tr><td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="sn" onClick="totalcompra('<%=FormatNumber(session("sn"),2)%>');" >
<span class="txtdetalhesopcao">Sedex - R$ <%=FormatNumber(session("sn"),2)%><br>
Prazo: Capital de todo Brasil: 02 a 03 dias. Interior de Todo Brasil: 03 a 04 dias.</span></td>
</tr>
<%end if%>
<%if session("sd") <> 0 and sedex_10="s" and session("sotransportadora") <> "Sim" then
id = id + 1 %>
<tr>
<td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="sd" onClick="totalcompra('<%=FormatNumber(session("sd"),2)%>');" >
<span class="txtdetalhesopcao">Sedex 10 - R$ <%=FormatNumber(session("sd"),2)%><br>
Prazo: Até as 10 horas do dia seguinte para pedidos efetuados até às 13:00 hs. </span></td>
</tr>
<%end if%>
<%if session("sc") <> 0 and sedex_cobrar="s" and session("sotransportadora") <> "Sim" then
id = id + 1 %>
<tr>
<td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="sc" onClick="totalcompra('<%=FormatNumber(session("sc"),2)%>');" >
<span class="txtdetalhesopcao"> Sedex à cobrar - R$ <%=FormatNumber(session("sc"),2)%><br>
Prazo: Capital de todo Brasil: 02 a 03 dias. Interior de Todo Brasil: 03 a 04 dias.</span></td>
</tr>
<%end if%>
<%if encomenda_normal = "s" and session("en") <> 0 and session("en") <> "" and session("sotransportadora") <> "Sim" then
id = id + 1 %>
<tr>
<td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="en" onClick="totalcompra('<%=FormatNumber(session("en"),2)%>');">
<span class="txtdetalhesopcao">Encomenda PAC - R$ <%=FormatNumber(session("en"),2)%><br>
Prazo: Capital de todo Brasil: 05 a 07 dias. Interior de Todo Brasil: 07 a 15 dias.</span></td>
</tr>
<%end if%>
<%if session("motoboy") = True and entrega_local = "s" and session("sotransportadora") <> "Sim" then
id = id + 1 %>
<tr>
<td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="el" onclick="totalcompra('<%=FormatNumber(valor_local,2)%>');" />
<span class="txtdetalhesopcao"><%=descricao_local%> - R$ <%=FormatNumber(valor_local,2)%><br>
<%=regiao_local%></span></td></tr>
<%
end if
if carta_registrada = "s" and session("sotransportadora") <> "Sim" and replace(formatnumber(peso_cartaregistrada,3), ",", ".") => session("peso") then
id = id + 1 %>
<tr>
<td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="cr" onClick="totalcompra('<%=FormatNumber(valor_cartaregistrada,2)%>');" >
<span class="txtdetalhesopcao">Carta Registrada - R$ <%=FormatNumber(valor_cartaregistrada,2)%><br>
Prazo: Para todo o Brasil de 15 a 25 dias.</span></td></tr><%end if
if transportadora = "s" then
id = id + 1 %>
<tr>
<td height="44" ><input style="border:none" name="frete" id="f<%=id%>" type="radio" value="tr" onclick="totalcompra('0');" />
<span class="txtdetalhesopcao">Transportadora<br />
O Valor e o Prazo será definido posteriormente por um atendente, buscando a melhor tarifa.</span></td>
</tr>
<%end if%>
</table></td>
</tr>
</table></form>
<%
END SELECT
%>Alguém arrisca a solução ?
Ps. Não sou programador...
