Segue código completo para gerar cotação
de dolar em tempo real, utilizando o componente ASPHTTP. A cotação
é retirada do site InvestShop.

<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"
cotacao = HttpObj.GetUrl
cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","")
‘ Tira a primeira parte que e lixo
‘ Coloca Valores em uma Array
dim valores()
dim cont, cont_valores
for cont = 1 to len(cotacoes) step 1
if (mid(cotaco s,cont,1) = ";") or (mid(cotacoes,cont,1)
r = " ") or (mid(cotacoes,cont,1) = Chr(10))then
cont_valores = cont_valores + 1
Redim Preserve valores(cont_valores)
valores(cont_valores) = Cstr(str)
str = ""
else
str = 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

%>