inclusão de valores em tabela do correio

[andre togo 0]

bom dia, tenho pouca, muito pouca experiencia em ASP, a por meio de um template de e-commerce adquirido, estou tendo que me virar para algumas alterações necessárias meu primeiro problema grave de hoje, refere-se ao calculo de frete, é o seguinte, tenho que acrescentar 1% do valor total do carrinho (referente ao seguro sobre a mercadoria) e ainda somas o valor fixo de R$ 5,00 (referente aos gastos com embalagem), resumindo, preciso que o valor a ser apresentado seja igual a (FRETE DO CORREIO)+(1% DO VALOR DO PRODUTO)+(R$ 5,00), tenho o código, mas não tenho a minima ideia de que alterar e onde por, segue abaixo o codigo, o qual creio que a primeira parte corresponde a PAC e Sedex Normal na segunda:

 

'41017 - Encomenda Normal

'41106

url_correios = "http://www.correios.com.br/encomendas/precos/calculo.cfm?servico=40010&cepDestino="& session("PesoTotalCep") &"&CepOrigem="& loja("cep") &"&peso="& Session("PesoTotalFrete") &""

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.open "post", url_correios,false

objXMLHTTP.send

ValorBox = objXMLHTTP.responseText

set objXMLHTTP = nothing

p = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa"))

s = right(p,len(p)-instr(p,"Tarifa"))

enc = replace(replace(left(right(s,len(s)-6),5),"&",""),".",",")

enc = replace(enc, "e", "")

enc = replace(enc, "r", "")

enc = replace(enc, "a", "")

enc = replace(enc, "u", "")

enc = replace(enc, "i", "")

if enc = "0rr" then

session("frete_encomenda") = "nao"

else

IF enc > 0.00 THEN

IF enc > 10.90 THEN

session("frete_encomenda") = enc / 2

IF session("frete_encomenda") < 10.90 THEN

session("frete_encomenda") = 10.90

END IF

ELSE

session("frete_encomenda") = 10.90

END IF

ELSE

session("frete_encomenda") = "nao"

END IF

 

'session("frete_encomenda") = enc

end if

'40010 = Sedex Convencional

url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40010&CepDestino="& session("PesoTotalCep") &"&CepOrigem="& ceploja &"&Peso="& Session("PesoTotalFrete") &"&ValorDeclarado="& Replace(PesoValorTotal, ".", "") &"&MaoPropria="& mao_propria

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.open "post", url_correios,false

objXMLHTTP.send

ValorBox = objXMLHTTP.responseText

set objXMLHTTP = nothing

primeira_tarifa = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa"))

segunda_tarifa = right(primeira_tarifa,len(primeira_tarifa)-instr(primeira_tarifa,"Tarifa"))

final_sedex = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",")

final_sedex = left(final_sedex,instr(final_sedex,"e")-1)

'end if

'session("PesoTotalValor") = final

session("Frete_sedex") = final_sedex

 

desde já agradeço a ajuda

[DSerma 19]

Cara... simples....

 

Se você já tem o valor "final" do frete.. vindo do calculo dos correios.... basta você adicionar 1% e mais 5 reais...

 

Ficaria +/- assim

 

Frete_final = (Frete + ((Frete /100) * 1))
Frete_final = Frete_final + 5

Att;