ratocuiara

Pessoal eu consegui, não era no código era no bd. podem fechar o tópico.

Olá pessoal, peguei esse código de um site pronto de cadastro, e estou fuçando para aprender um pouquinho. Gostaria que vocês configurassem o codigo a seguir, para envio de email do localhost. abraços cada dia que passa aprendo e resolvo alguns pepinos em asp, logo me sinto o melhor o tal, mas nem chego aos pés de vocês, que alem do saber tem humildade em compartilhar. É por isso que ainda acredito no ser humano e faço minha parte respondendo duvidas de CorelDraw. Haaaa nisso eu sou bão

Hei vc....Acabou... porque vocês não fecharam o tópico ainda. bay bay

Eu pego na net mudo alguma coisinha e falo pra todo mundo que foi eu quem fez, He, he, he bricadeirinha. To aprendendo asp, e utilizo códigos prontos para fuçar e aprender.

Valeu meu filho meu. brigadão

Salve galera, bem como ninguém respondeu minha mensagem resolvi botar aki os códigos para pesquisar preço de frete através do site dos correios. Ve ai se vocês conseguem melhorar, fiz até aonde meu conhecimento me permitia. Abraços e Bom Proveito. O código acima é a página de pesquisa. Esse é o código da página de resposta. É isso ai galera se vocês conseguir melhorar por favor me comunique. Abraços e bom proveito. Ai que droga meu time empatou, salve o corinthians...............

Pessoal podem fechar esse tópico, já abri outro com outra duvida abraços

Pensei nisto mais não dá pois a diferença de preço do sedex para a encomenda normal é muito alta em determinados estados e quase irrisórias em outros. A questão ainda está aberta...

Aceita sim cara pode ir lá conferir.

Achei que lá iria ficar muito no final da lista, mas tudo bem vou postar depois vocês organizam.

Oi ai galera, dois provedores gratuíto em português Libihost.net antigo aspcto Criador online Não basta visitar tem que comentar...

infelizmente não é isso, tentei usar a função que você fez, e altera-la mode retornar o valor que desejo, sem chance. mais achei super interessante e vou usa-la. Vou tentar lhe explicar de novo o que eu quero. Veja isso: SEDEX =1kg R$8,00 ==> 2kg R$ 18,50 Enc. Normal =1kg R$5,70 ==> 2kg R$ 8,30 O que eu quero é aproveitar o valor retornado dos correios, no caso o do SEDEX e com base nele configurar manualmente o valor da "Encomenda Normal" Assim sendo R$8,00 do sedex eu diria a uma expresão que quando o valor for 8 retornar 5,70 e que quando o valor for 18.5 retornar 8,30 espero que tenha entendido. É isso ai, vocês me ajudam e eu tento aki sem nenhum conhecimento de asp.

Não amigo não é isso que quero. veja isso: O código acima faz exatamente o que eu quero ele substitui "8" por "8.75" O problema é que quando o resultado retorna o valor "18.5" ele troca por "18.75.5 Gostaria de saber se tem alguma formula de dibrar isso o uma função adquada a isso? E lá vamo nois de novo, a cabeça ta quente soltando fumaça, to loco e não consigu nem drumi direito me ajudem socorro....

Olá pessoal, gostaria de saber se exite uma forma para substituir um valor retornado de um site de terceiros. Vejam ó código a seguir me retorna os valores de frete dos correios. Digamos que em uma determinada pesquisa o valor for de R$8,00 e em outra R$ 9,50 O que eu quero é que quando o valor for de R$8,00 me reportasse R$8,50 E que quando fosse R$ 9,50 me reportasse R$ 10,50 e assim por diante em vários outros valores. A minha intensão com isso é poder informar na pesquisa o valor de 2 serviços dos correios, o sedex e a "Encomenda Normal" esse ultimo seria configurado por mim de acordo com o valor pesquisado no SEDEX e substituido pelo valor de Encomenda Normal. Vamos lá pessoal, prometo que ao final vou postar os os códigos para todos usarem.

Verifique se o arquivo não foi feito em MAC isso costuma dar erro em PC abraços.

Olá amigo. Para reduzir a imagem sem distorcer Com a imagem selecionada clique em "Ferramenta Forma" tecla de atalho "(F10)" selecione os dois pontos da imagem e arrante até o tamanho desejado. Esse procedimento faz um corte na imagem. Em relação a proporção basta clicar em qualquer ponto no canto do objeto e arrastar para crescer e diminuir na proporção você pode tb trancar o cadeado ao lado da caixa de medidas quando você digitar o valor da largura ou altura ele terá o seu comportamento proporcional ao tamanho

Tem como você enviar no email "ratocuiara@pop.com.br" ou dispor isso num site para nos fazermos o downlod. Abraços

Veja se o código se propor a isso da sim mais vale lembrar que terá vários valores a substituir. O código abaixo me retorna os valores vindos dos correios Aonde eu encaixaria essa função Abraços

E ai alguém se candidata a resolver. vocês saberiam me dizer se tem como eu substituir um valor. Calma eu explico vejam o site me reporta o valor de: 231.1999 Oque eu quero é uma expressão que diga que quando o valor for:231.1999 mostrar 24,50 entenderam? É a mesma coisa de 1+1=3 Espero que possam me ajudar Estamos chegando perto Abraços

Não resolveu amigo ele reporta o numero interiro seguido de ,00 veja exemplos. Valor =8.5 Reportou= 85,00 por um acaso existe posibilidade de alterar o caminho na barra de endereço? veja o caminho completo: "http://localhost/frete/respostacorreios.asp?Servico=SEDEX&cepOrigem=18300430&cepDestino=06210430&UFOrigem=SP&LocalOrigem=Interior&UFdestino=SP&LocalDestino=Capital&Peso=1&MaoPropria=0&AvisoRecebimento=0&valorDeclarado=0&Tarifa=8.5&erro=" Observa o campo Tarifa. Teria com substituir o ponto por virgula. veja os códigos: Página default.asp <% If Request("busca")=1 Then Dim UrlResposta '---------AQUI A SUA URL DE RESPOSTA------------------------------- UrlResposta = "http://localhost/frete/respostacorreios.asp" '------------------------------------------------------------------ Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "") End if %> <html> <head> </head> <body> <form action="<%Request.ServerVariables("SCRIPT_NAME")%>" method="get" name="form1" ID="Form1"> <table width="400" ID="Table1"> <tr> <td>Cep Origem:</td> <td>18300430 <input type="hidden" name="cepOrigem" value="18300430" ID="Hidden1"></td> </tr> <tr> <td>Cep Destino:</td> <td><input type="text" name="cepDestino" value="" ID="Text1"></td> </tr> <tr> <td>Peso: </td> <td><input type="text" name="peso" value="" id="Text2"></td> </tr> <tr> <td> <input type="hidden" name="busca" value="1" ID="Hidden3"></td> <td><input type="submit" name="Submit" value="Enviar" ID="Submit1"></td> </tr> </table> </form> </body> </html> _____________________________________________________________________ página respostacorreios.asp <table width="300" border="0"> </table> <table width="300" border="0"> <tr> <td bgcolor="#00FF00"><% Response.Buffer= True Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Response.ExpiresAbsolute = #January 1, 1990 00:00:01# Response.Expires=Now()-1 Response.AddHeader "Cache-Control", "must-revalidate" Response.AddHeader "Cache-Control", "no-cache" %> <% Response.Write "<center><div id='Carregando' style='display:block;'><br><br>" Response.Write "<font face='Arial, Tahoma' size='2' color='#330099'><b>Aguarde carregando...</b></font><br><br>" Response.Write "<img src='progressbar.gif' alt='Carregando...' border='0' height='17' width='94'>" Response.Write "</div></center>" 'Response.Buffer = True Response.Flush() Response.Write "<script language='javascript'>document.All.Carregando.style.display = 'none';</script>" %> </td> <td bgcolor="#993333">&nbsp;</td> </tr> <tr> <td bgcolor="#FF0000">&nbsp;</td> <td bgcolor="#99CC00"><div align="right"> <% Function FormataMoeda(Tarifa) dim sp, sv, v sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1) sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1) If isNumeric(Tarifa) Then v = FormatNumber (Tarifa, 2, -1, 0, -1) Else v = FormatNumber (0, 2, -1, 0, -1) End If v = Replace(v, sp, "p") v = Replace(v, sv, "v") v = Replace(v, "p", ".") v = Replace(v, "v", ",") FormataMoeda = v End Function %> <% Dim Tarifa For each Tarifa in Request.QueryString("Tarifa") Response.Write(FormataMoeda(Request.QueryString("Tarifa")) & "<BR>") next %> </div></td> </tr> <tr> <td bgcolor="#0000FF">&nbsp;</td> <td bgcolor="#9900FF"><% Dim Tarifa2 For each Tarifa2 in Request.QueryString("Tarifa") Response.Write("Tarifa2" & " : " & FormatCurrency(valor & Request.QueryString("Tarifa")) & "<BR>") next %> </td> </tr> <tr> <td bgcolor="#0000FF">&nbsp; </td> <td bgcolor="#9900FF"> <% Dim Peso For each Peso in Request.QueryString ("Peso") Response.Write("Peso" & " : " & Request.QueryString("Peso") & " Kg" & "<BR>") next %> </td> </tr> </table> <p>&nbsp; </p>

Legal amigo funcionou parcialmente. Veja o valor seria: R$ 231,19 ou arredondando R$ 231,20 O objeto no formato moeda reportou o seguinte valor: R$ 2,311,999,00 O objeto sem estar no formato moeda 17 kg reportou: 231,1999 O objeto sem estar no formato moeda 1 kg reportou: 18,9 O objeto sem estar no formato moeda 1 kg mesmo cep reportou: 8 Note que no formato moeda todos os pontos tornaram-se virgulas e o valor ficou ilegivel, no segundo exemplo as casas decimais ultrapassam de 2 unidades, no exempo 3 não atinge as duas casas decimais e no exemplo 4 o numero se apresenta inteiro Será que você ou outros ai tem aguma carta escondida na manga para resolver isso. Espero que sim abraços.

Não deu certo o codigo que você me enviou, mais fuçando aqui eu consegui veja como ficou. <% Dim Tarifa For each Tarifa in Request.QueryString("Tarifa") Response.Write(FormatCurrency(Valor & Request.QueryString("Tarifa")+1.50) & "<BR>") next %> Agora amigos estou com um grande problema. O site dos correios onde sugo as informações me repassa o valor acompanhado de ponto e não de vigula, sendo assim o código interpleta ele sendo um numero inteiro e não decimal. até ai sem problemas é só dividir o valor inteiro por dez e estária tudo resolvido certo? errado. Vejam esses exemplos: Frete de 1Kg para um determinado cep: Tarifa: 31.20\10=R$31,20 "tudo OK" Frete de 17k para um determinado cep: Tarifa: 231.1999\10=R$231199,90 "Ferrou Tudo" Notem que o segundo calculo deveria me passar o valor de R$ 231,19 arredondando R$ 231,20. Não sei se tem aguma formula para diblar isso, caso tenha potem ai. Abraços.

beleza cara mais onde devo encaixar isso na expressão, tentei de tudo e nada.

Pessoal consegui somar vejam como ficou. <% Dim Tarifa For each Tarifa in Request.QueryString ("Tarifa") Response.Write("Tarifa" & " : R$ " & Request.QueryString("Tarifa")+1.50 & "<BR>") next %> Agora só preciso saber como exibir o resultado em formato decimal ou moeda vamo que vamo Abraços

Desculpe por ter duplicado os posts a página de confimação estava dando erro