Utilizo o webservice da king host, mas nos últimos dias ele tem rejeitado alguns cep's.
Alguém tem algum script mais atual?
Vi alguns em php utilizando o http://www.correios.com.br/webservices/
Mas em asp não encontrei
Código atual
webservice_url = " http://webservice.uni5.net/web_frete.php"
webservice_query = "3e35e013731d9ce97131aba81d71a810" 'Chave de autenticação do WebService - Consultar seu painel de controle
set xml = Server.CreateObject ("Microsoft.XMLHTTP")
xml.open "GET", webservice_url&"?"&_
"auth="&webservice_query&"&"&_
"tipo=" & tipofrete & "&"&_
"formato=query_string&"&_
"cep_origem="& cep_origem &"&"&_
"cep_destino="& cep_destino &"&"&_
"peso="&PesoFinal, 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
getValorSedex = Parsed(3,1)
end function
cep_origem = "02084-040"
cep_destino = CEP
'response.write cep
resultado =(getValorSedex( cep_origem, cep_destino, PesoFinal ))
If resultado > 5 then
resultado = replace(resultado,".",",")
ValorFrete = replace(resultado,".",",")
'response.write "R$ "&FormatarEmNumber&""
else
Response.write "CEP inválido - <a href=Finaliza.asp class=TextArial18VermelhoBold>Voltar</a>"
Travarsite = "sim"
end if