Dae Galera, esse é meu primeiro post aqui no ScriptBrasil. Eu vi o codigo e achei legal, mas eu precisava de uma coisa que funciona-se completamente no lado do servidor, sem essa interação usando o browser do usuário... Isso torna o sistema inseguro... nada impede que o meliante de uma marretada e coloque um valor qualquer no campo de frete do formulário... então eu adaptei o codigo, e segue abaixo. <%
Session.LCID = 1036
Dim URLCorreio, CEPOrigem, CEPDestino, Peso, xmlhttp, strRetorno, urlInteressante, arrLinha, arrRetornos
Dim TipoServico, Tarifa
CEPOrigem = "06056180"
CEPDestino = "06236020"
Peso = "1"
URLCorreio = "http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & CEPOrigem & "&cepDestino=" & CEPDestino & "&peso=" & Peso
Set xmlhttp = Server.CreateObject("Msxml2.serverXMLHTTP")
Call xmlhttp.open("GET", URLCorreio, false)
Call xmlhttp.send()
strRetorno = xmlhttp.responseText
urlInteressante = Mid(strRetorno, instr(1, strRetorno, "window.open") )
urlInteressante = left(urlInteressante, instr(1, urlInteressante, "popUpTarifa") )
arrRetornos = Split(urlInteressante, "&")
for i=0 to Ubound(arrRetornos)
arrLinha = Split(arrRetornos(i), "=")
if instr(1, arrLinha(0), "Servico") Then TipoServico = arrLinha(1)
if arrLinha(0) = "Tarifa" Then Tarifa = Cdbl(Replace(arrLinha(1),".",","))
Next
Response.Write "O Frete é do tipo " & TipoServico & " e vai custar R$ " & FormatNumber(Tarifa,2)
%>