Calculo de Frete
Codigo:
Senha:
Serviços:
Cep Origem:
Cep Destino:
Peso:
Formato:
Comprimento:
Altura:
Largura:
Diâmetro:
Mão própria:
Valor declarado:
Aviso de Recebimento:
<%@LANGUAGE=VBScript%> <% option explicit 'On Error Resume Next dim oXmlHttp, oXmlDom dim sReturn, sPacoteSoap dim nCodigoRet, sDescricaoRet set oXmlHttp = server.CreateObject("Microsoft.XMLHTTP") const sSoapServer = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.asmx" 'Tratamento de campos obrigatórios dim peso, comprimento, altura, largura, diametro, valordeclarado if request.form("peso") = "" then peso = "0" else peso = request.form("peso") end if if request.form("comprimento") = "" then comprimento = "0" else comprimento = request.form("comprimento") end if if request.form("altura") = "" then altura = "0" else altura = request.form("altura") end if if request.form("largura") = "" then largura = "0" else largura = request.form("largura") end if if request.form("diametro") = "" then diametro = "0" else diametro = request.form("diametro") end if if request.form("valordeclarado") = "" then valordeclarado = "0" else valordeclarado = request.form("valordeclarado") end if sPacoteSoap = GerarPacoteSoap(request.form("codigo"),request.form("senha"),request.form("servicos"),requ est.form("cepori"),request.form("cepdes"),peso,request.form("formato"),comprimento, altura, largura, diametro, request.form("maopropria"), valordeclarado, request.form("avisorecebimento")) oXmlHttp.open "POST", sSoapServer, false oXmlHttp.setRequestHeader "SOAPAction", "http://tempuri.org/CalcPrecoPrazo" oXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" oXmlHttp.send(sPacoteSoap) sReturn = oXmlHttp.responseText 'parse xml Set oXmlDom = Server.CreateObject("Microsoft.XMLDOM") oXmlDom.loadXML sReturn set oXmlDom = oXmlDom.selectSingleNode("soap:Envelope/soap:Body/CalcPrecoPrazoResponse/CalcPrecoPrazoRes ult") 'Se o retorno foi OK então listar os fretes disponíveis dim oNodes, oNode 'Seleciona os fretes no XML Set oNodes = oXmlDom.selectNodes("Servicos/cServico") 'Mostra todos os fretes disponíveis for each oNode in oNodes Response.Write "
Código:" & oNode.selectSingleNode("Codigo").Text & "
" Response.Write "Valor:" & oNode.selectSingleNode("Valor").Text & "
" Response.Write "Prazo: " & oNode.selectSingleNode("PrazoEntrega").Text & "
" Response.Write "Valor Mão Própria: " & oNode.selectSingleNode("ValorMaoPropria").Text & "" Response.Write "Valor Aviso de Recebimento: " & oNode.selectSingleNode("ValorAvisoRecebimento").Text & "" Response.Write "Valor Valor Declarado: " & oNode.selectSingleNode("ValorValorDeclarado").Text & "" Response.Write "Entrega Domiciliar: " & oNode.selectSingleNode("EntregaDomiciliar").Text & "" Response.Write "Entrega Sábado: " & oNode.selectSingleNode("EntregaSabado").Text & "" next Set oXmlDom = Nothing function GerarPacoteSoap(nCdEmpresa, sDsSenha, nCdServico, sCepOrigem, sCepDestino, nVlPeso, nCdFormato, nVlComprimento, nVlAltura, nVlLargura, nVlDiametro, sCdMaoPropria, nVlValorDeclarado, sCdAvisoRecebimento) dim sSoap sSoap = "" sSoap = sSoap & "" sSoap = sSoap & "" sSoap = sSoap & "" sSoap = sSoap & "" & nCdEmpresa & "" sSoap = sSoap & "" & sDsSenha & "" sSoap = sSoap & "" & nCdServico & "" sSoap = sSoap & "" & sCepOrigem & "" sSoap = sSoap & "" & sCepDestino & "" sSoap = sSoap & "" & nVlPeso & "" sSoap = sSoap & "" & nCdFormato & "" sSoap = sSoap & "" & nVlComprimento & "" sSoap = sSoap & "" & nVlAltura & "" sSoap = sSoap & "" & nVlLargura & "" sSoap = sSoap & "" & nVlDiametro & "" sSoap = sSoap & "" & sCdMaoPropria & "" sSoap = sSoap & "" & nVlValorDeclarado & "" sSoap = sSoap & "" & sCdAvisoRecebimento & "" sSoap = sSoap & "" sSoap = sSoap & "" sSoap = sSoap & "" GerarPacoteSoap = sSoap end function %> #corpo .conteiner { background-color: #171515; } #cabecalho .conteiner { background-color: #171515; } #rodape .pagamento-selos { background-color: #171515; } .conteiner-principal .conteiner { background-color: #171515; }