Sistema de cotação do dólar em real time

[praxade 0]

Bom dia Senhores!

 

Estou desenvolvendo um sistema de cotação do dólar em que ele seja em real time, ou seja, em tempo real.

Ele está dando esse erro:

 

Erro de compilação do Microsoft VBScript erro '800a03ee'

 

')' esperado

 

/start/dolar/teste/Index.asp, line 11

 

if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) r = " ") or (mid(cotacoes,cont,1) = Chr(10))then

---------------------------------------------------------^

 

O link onde estou testando é:

 

http://www.portal.netium.com.br/start/dolar/teste/

 

Esse é meu código:

 

 

<%

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","")

dim valores()

dim cont, cont_valores

for cont = 1 to len(cotacoes) step 1

if (mid(cotacoes,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

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)

 

%>

 

Por favor podem me ajudar?

Agradeço à compreensão.

[Salgado 4]

A própria mensagem de erro diz o problema e aonde está.

[praxade 0]

A própria mensagem de erro diz o problema e aonde está.

Mas esse erro é devido que no servidor não tenha o componente asphttp?ou mos valores estão errados?Pode me ajudar.

[Salgado 4]

Retire o "r" que a mensagem de erro está apontando!

[praxade 0]

Retire o "r" que a mensagem de erro está apontando!

Agora deu esse erro:

 

Objeto Server erro 'ASP 0177 : 800401f3'

 

Falha em Server.CreateObject

 

/start/dolar/teste/Index.asp, line 3

 

800401f3

 

Essa é a linha do erro.

 

Set HttpObj = Server.CreateObject("AspHTTP.Conn")

[Salgado 4]

Agora sim, o servidor não deve possuir o componente. Cara dê uma busca no fórum pois recentemente corrigimos um sistema que busca dados de dollar diretamente do BC.