marcelo oli

não é isso, o apache, mysql estao rodando direitinho me falaram q talvez não rode em localhost porque exige vps, mas não sei se é isso mesmo

estou com o seguinte problema: quando rodo na hospedagem o site ele funciona corretamente, mas quando rodo localhost ele não executa o cod todo e joga ele na tela segue o erro: o que fazer?

amigo -#Alea#- fiz algumas alteraçoes e deu certo muito obrigado mesmo pela ajuda valeu segue como ficou '41106 - Encomenda Normal url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx?nCdEmpresa= &sDsSenha= &sCepOrigem="&ceploja&" &sCepDestino="&session("PesoTotalCep")&" &nVlPeso="&session("PesoTotalFrete")&" &nCdFormato=1 &nVlComprimento=25 &nVlAltura=5 &nVlLargura=5 &sCdMaoPropria=n &nVlValorDeclarado=0 &sCdAvisoRecebimento=N &nCdServico=41106 &nVlDiametro=5 &StrRetorno=xml" Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.open "GET", url_correios,false objXMLHTTP.send "" ValorBox = objXMLHTTP.responseText set objXMLHTTP = nothing set objXMLHTTP = nothing Valor = InStr(ValorBox,"Valor") ValorF = MID(ValorBox,Valor+6,6) ValorF = Replace(ValorF,"<","") ValorF = Replace(ValorF,",",".") frete_total = ValorF frete_total = replace(frete_total,".",",") final_enc = frete_total If final_enc = "0,00/" Then session("frete_encomenda") = "não" Else session("Frete_encomenda") = final_enc End if '40010 = Sedex Convencional url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx?nCdEmpresa= &sDsSenha= &sCepOrigem="&ceploja&" &sCepDestino="&session("PesoTotalCep")&" &nVlPeso="&session("PesoTotalFrete")&" &nCdFormato=1 &nVlComprimento=25 &nVlAltura=5 &nVlLargura=5 &sCdMaoPropria=n &nVlValorDeclarado=0 &sCdAvisoRecebimento=N &nCdServico=40010 &nVlDiametro=5 &StrRetorno=xml" Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.open "GET", url_correios,false objXMLHTTP.send "" ValorBox = objXMLHTTP.responseText set objXMLHTTP = nothing set objXMLHTTP = nothing Valor = InStr(ValorBox,"Valor") ValorF = MID(ValorBox,Valor+6,6) ValorF = Replace(ValorF,"<","") ValorF = Replace(ValorF,",",".") frete_total = ValorF frete_total = replace(frete_total,".",",") final_sedex = frete_total If final_sedex = "0,00/" Then session("frete_sedex") = "não" Else session("Frete_sedex") = final_sedex End if

pois é, não tem logica, rsrsrsr mas isso eu resolvo aqui, esta parte é mais pra usar ou não a encomenda mas se puder me ajudar no restante... gostaria apenas de funcionar o calculo com o site dos correios

ola, sou novo no forum e tb em programacao, estou com um problema para calcular o frete dos correios (sedex e pac), gostaria da ajuda de vocês. os problemas são no calculo do pac o valor é sempre o mesmo (R$ 12,90) e o valor do sedex não é calculado. segue o codigo abaixo: '41106 - Encomenda Normal url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=41106&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 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") = "não" 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") = enc END IF 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) If final_sedex = "0rr" Then session("frete_sedex") = "não" Else session("Frete_sedex") = final_sedex End if

ola, sou novo no forum e tb em programacao, estou com um problema para calcular o frete dos correios (sedex e pac), gostaria da ajuda de vocês. os problemas são no calculo do pac o valor é sempre o mesmo (R$ 12,90) e o valor do sedex não é calculado. segue o codigo abaixo: '41106 - Encomenda Normal url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=41106&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 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") = "não" 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") = enc END IF 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) If final_sedex = "0rr" Then session("frete_sedex") = "não" Else session("Frete_sedex") = final_sedex End if