Shadow Brujah

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) %>