<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
OPTION EXPLICIT
dim origem,peso,qtde,destino,preco,enviado,forme,exibir,mensagem
dim resposta_sedex,resposta_pac,peso_total,webservice_url
dim webservice_query,xml,resultado,e,tipo,temporario,testar,final,valor,valorpac
origem = "03162020"
peso = request.QueryString("peso")
qtde = request.form("qtde")
destino = request.form("destino")
preco = request.QueryString("preco")
enviado = request.Form("enviado")
forme = "sim"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if qtde = "" then qtde = 1
if peso = "" then peso = 0
if preco = "" then preco = 0
if peso <> "" then
if isnumeric(preco) = false then
peso = 0
end if
end if
if preco <> "" then
if isnumeric(preco) = false then
preco = 0
end if
end if
if qtde <> "" then
if isnumeric(qtde) = false then
qtde = 1
end if
end if
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if enviado = "" then
'*******************************************************************************************
if isnumeric(peso) = false or peso < 1 or isnumeric(preco) = false or preco < 1 then
exibir = "mensagem"
forme = ""
mensagem = "Não é possível calcular o Frete. Entre em contato com o Vendedor Clicando Aqui"
elseif peso > 30000 then
forme = ""
exibir = "mensagem"
mensagem = "Este produto tem peso superior a 30kg e não é suportado pelo Sedex. Entre em contato com o Vendedor para consultar outras formas de envio, Clicando Aqui."
else
exibir = "formulario"
end if
'*******************************************************************************************
elseif peso * qtde > 30000 then
exibir = "mensagem"
if qtde < 2 then
mensagem = "Peso superior a 30kg não suportado por Sedex. Entre em contato com o Vendedor."
else
mensagem = "Peso total do Frete superior a 30kg. Para este produto o Frete só é possível para até: " & Int(30000 / peso) & " produto(s) Para outras quantidades entre em contato com o Vendedor Clicando Aqui."
end if
elseif destino = "" then
exibir = "mensagem"
mensagem = "Informe o CEP de Destino"
elseif isnumeric(destino) = false then
exibir = "mensagem"
mensagem = "CEP de Destino inválido"
elseif GeraFrete(origem,destino,"1000","1","") = "" then
exibir = "mensagem"
mensagem = "CEP de Destino inválido"
else
exibir = "tabela"
resposta_sedex = GeraFrete(origem,destino,peso,qtde,"sedex")
resposta_pac = GeraFrete(origem,destino,peso,qtde,"pac")
if resposta_sedex <> "" then valor = Replace(resposta_sedex,".",",")
if resposta_pac <> "" then valorpac = Replace(resposta_pac,".",",")
end if
%>
Calcule o Frete - Show Loja Lar
<%
Select Case exibir
Case "mensagem"
%>
<%
if forme = "sim" then Call Formulario()
response.Write("
<%
Sub Formulario()
%>
<%
End Sub
%>
<%
function GeraFrete(cep_origem,cep_destino,peso_unitario,quantidade,tipo)
Dim Parsed(9,9)
if tipo = "" then tipo = "sedex"
if isnumeric(peso_unitario) = true and peso_unitario * qtde < 300 and peso_unitario <> "0" then
peso_total = 300
else
peso_total = peso_unitario * quantidade
end if
webservice_url = " http://webservice.kinghost.net/web_frete.php"
webservice_query = "200a6d99b43fd763eae36d9164624149" 'Chave de autenticação da ESA Baterias
set xml = Server.CreateObject ("Microsoft.XMLHTTP")
xml.open "GET", webservice_url&"?" &_
"auth=" & webservice_query & "&" &_
"tipo=" & tipo & "&" &_
"formato=" & "query_string" & "&" &_
"cep_origem=" & cep_origem & "&" &_
"cep_destino=" & cep_destino & "&" &_
"peso=" & peso_total, false
xml.send()
Resultado = Xml.responseText
Resultado = split( Resultado, "&")
' Montando parametros
for e = 1 To ubound( Resultado)
temporario = split( Resultado(e), "=")
Parsed(e,0) = temporario(0)
Parsed(e,1) = replace( temporario(1), "+", " ")
next
testar = Replace(Parsed(3,1),".",",")
if IsNumeric(testar) = True then
final = FormatCurrency(Replace(Parsed(3,1),".",","))
else
final = Parsed(3,1)
end if
GeraFrete = final
end function
%>