webservice - Frete

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