[Calculo De Frete]

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)


%>