<%
'Verifica se o CEP eh da cidade de Sao Paulo / SP
'
session("CEPDest") = request.queryString("CEPDest")
If Request.ServerVariables("SERVER_NAME") = "localhost" Then
session("CEPDest") = "05402600"
sEndCidade = "São Paulo"
sEndUF = "SP"
Else
Set CEP_obj = CreateObject("Correios.CEP")
CEP_obj.EncontraCEP(request.queryString("CEPDest"))
If CEP_obj.Erro = 0 Then
sEndCidade = CEP_obj.Cidade
sEndUF = CEP_obj.Estado
Else
sEndCidade = "N"
sEndUF = "N"
'Ver este BUG com a Locaweb
'
session("fPrecoFrete") = 0
vPrecoFrete = session("fPrecoFrete")
response.cookies("carrinho")("precoFrete") = 0
End If
Set CEP_obj = Nothing
End if
if cDbl(vfFreteGratis) > 0 and _
cDbl(formatNumber(vPrecoSubTotal,2)) >= cDbl(formatNumber(vfFreteGratis,2)) and _
sEndCidade = "São Paulo" and _
sEndUF = "SP" then
%>
Sua compra foi acima de R$ <%= formatNumber(vfFreteGratis,2) %>. O frete será pago pela Natural Quality.
<%
dim vPrecoFrete
vsCEPDest = request.queryString("CEPDest")
if vsCEPDest = "" then
session("fPrecoFrete") = 0
vPrecoFrete = session("fPrecoFrete")
response.cookies("carrinho")("precoFrete") = 0
else
response.cookies("carrinho")("precoFrete") = formatNumber(session("fPrecoFrete"),2)
vPrecoFrete = formatNumber(request.cookies("carrinho")("precoFrete"),2)
end if
if vCritica = "1" then
%>
Para finalizar sua compra, é preciso informar o CEP.
<%
end if
%>
Para calcular o frete, digite o CEP do local da entrega do pedido e clique no botão "OK"
CEP:
(somente números)
Se não souber o CEP, clique aqui
<%
if cLng(vfFreteGratis) > 0 then
%>
O frete é gratis para:
- Compras acima de R$ <%= formatNumber(vfFreteGratis,2) %> feitas para a cidade de São Paulo - SP.
<%
end if
%>
<%
end if
%>
Frete:
R$ <%= formatNumber(vPrecoFrete,2) %>
<%
dim vPrecoTotal
vPrecoTotal = formatNumber(vPrecoSubTotal + vPrecoFrete,2)
%>
