Valores de cotação do Dóllar

[marcelocardoso 6]

PESSOAL!

 

Existe alguma maneira de colocar no site em ASP, algo com o valor em tempo real do dolar atual.

E que se atualiza sempre que tiver mudanças?

 

Se alguem tem alguma coisa funcionando e puder me passar como se faz agradeço a todos.

Obrigado.

[marcelocardoso 6]

Olá LUCAS!Tem algum exemplo para passar para o amigo aqui????

[Patricia 0]

testa aí:

 

<%Set HttpObj = Server.CreateObject("AspHTTP.Conn")HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"cotacao = HttpObj.GetUrlcotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo' Coloca Valores em uma Arraydim valores()dim cont, cont_valoresfor cont = 1 to len(cotacoes) step 1if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) = " ") or (mid(cotacoes,cont,1) = Chr(10)) thencont_valores = cont_valores + 1Redim Preserve valores(cont_valores)valores(cont_valores) = Cstr(str)str = ""elsestr = str + mid(cotacoes,cont,1)end if next' Fim Coloca valores em uma Array' Coloca os valores nas variaveis'DOLAR_COMERCIAL_COMPRA = valores(3)'DOLAR_COMERCIAL_VENDA = valores(4)'DOLAR_COMERCIAL_VARIACAO = valores(5)DOLAR_PARALELO_COMPRA = valores(7)DOLAR_PARALELO_VENDA = valores(8)'DOLAR_PARALELO_VARIACAO = valores(9)DOLAR_TURISMO_COMPRA = valores(11)DOLAR_TURISMO_VENDA = valores(12)'DOLAR_TURISMO_VARIACAO = valores(13)'PTAX_COMPRA = valores(15)'PTAX_VENDA = valores(16)'PTAX_VARIACAO = valores(17)' Fim coloca os valores nas variaveis%><%=DOLAR_TURISMO_COMPRA%><%=DOLAR_TURISMO_VENDA%><%=DOLAR_PARALELO_COMPRA%><%=DOLAR_PARALELO_VENDA%>

[Danilo. 0]

É exatamente isso q eu preciso tb,mas deu erro:Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida O que pode ser??

testa aí:

<%Set HttpObj = Server.CreateObject("AspHTTP.Conn")HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"cotacao = HttpObj.GetUrlcotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo' Coloca Valores em uma Arraydim valores()dim cont, cont_valoresfor cont = 1 to len(cotacoes) step 1if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) = " ") or (mid(cotacoes,cont,1) = Chr(10)) thencont_valores = cont_valores + 1Redim Preserve valores(cont_valores)valores(cont_valores) = Cstr(str)str = ""elsestr = str + mid(cotacoes,cont,1)end if next' Fim Coloca valores em uma Array' Coloca os valores nas variaveis'DOLAR_COMERCIAL_COMPRA = valores(3)'DOLAR_COMERCIAL_VENDA = valores(4)'DOLAR_COMERCIAL_VARIACAO = valores(5)DOLAR_PARALELO_COMPRA = valores(7)DOLAR_PARALELO_VENDA = valores(8)'DOLAR_PARALELO_VARIACAO = valores(9)DOLAR_TURISMO_COMPRA = valores(11)DOLAR_TURISMO_VENDA = valores(12)'DOLAR_TURISMO_VARIACAO = valores(13)'PTAX_COMPRA = valores(15)'PTAX_VENDA = valores(16)'PTAX_VARIACAO = valores(17)' Fim coloca os valores nas variaveis%><%=DOLAR_TURISMO_COMPRA%><%=DOLAR_TURISMO_VENDA%><%=DOLAR_PARALELO_COMPRA%><%=DOLAR_PARALELO_VENDA%>

[dolci 0]

Esse site:

http://www.investshop.com.br/mer/include/Dolar.csv

 

Tá fora do ar faz tempo

[jrcardozo 4]

Esse site:

http://www.investshop.com.br/mer/include/Dolar.csv

 

Tá fora do ar faz tempo

o tópico iniciou em 2006, o link é antigo