Erro cotação do dolar !!!

Boa tarde, Preciso da ajuda de vcs, pois na materia publicada dia 14 dezembro 2003, sobre a cotacao do dolar esta dando o seguinte erro:Não é possível exibir a página Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la. --------------------------------------------------------------------------------Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A03EE)')' esperado/agrinplex/home.asp, line 12, column 57if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) r = " ") or (mid(cotacoes,cont,1) = Chr(10))then--------------------------------------------------------^Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Este é o codigo que foi postado:<%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(cotaco s,cont,1) = ";") or (mid(cotacoes,cont,1) r = " ") 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 variaveisDOLAR_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%>Por favor me ajudem. Obrigado