Erro cotação do dolar !!!

[dfsilva 0]

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

[alphamek 2]

Seguinte, faz essa alteração.

 

ASP

[*]

[*] if (mid(cotaco s,cont,1) = ";") or (mid(cotacoes,cont,1) r = " ") or (mid(cotacoes,cont,1) = Chr(10))then

 

Para

 

ASP

[*]

[*]if (mid(cotaco s,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10))then

[*]

 

beleza.

 

:blink:

[dfsilva 0]

Fiz a alteração;E continua dando o mesmo erro:Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A03EE)')' esperado/agrinplex/dolar.asp, line 13, column 15if (mid(cotaco s,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10))thenAguem me ajude por favor !!

[dark0 0]

brother, olha aqui:

 

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

aquela parte em vermelho eh assim mesmo?

[dfsilva 0]

Corrigi o erro de digitação ficou assim:if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10))thenPorem esta dando o seguinte erro:Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida Obrigado

[Mário Monteiro 179]

o erro ainda é nesta linha??

 

da um espaço antes do THEN

 

if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10))ESPAÇO AQUIthen

[dfsilva 0]

Dei o espaco antes do then mas continua dando o erro:Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida

[dark0 0]

entaum, dah um response.write na variavel cotacoes, pra ver o conteudo dela..de repente ela ta com alguma coisa maluca e isso ta gerando erro..

[Mário Monteiro 179]

entaum, dah um response.write na variavel cotacoes, pra ver o conteudo dela..

 

de repente ela ta com alguma coisa maluca e isso ta gerando erro..

tenta fazer isso mesmo...

 

PS: o erro continua na mesma linha???

[dfsilva 0]

Dei um response.write conforme pedido mas não deu certo, olha como eu fiz:<%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 response.Write(cotacoes) ' dim valores() 'dim cont, cont_valores ' for cont = 1 to len(cotacoes) step 1 ' if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " 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%>Deu o seguinte erro:Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida

[Mário Monteiro 179]

acusa alguma linha??você tem o camponente AspHTTP??

[ska_ska 0]

estranho...

vamos testar o componente primeiro, para certificar q ele esteja funfando normal no seu server... ai jah eliminamos ele e partimos para a manipulação dos dados.

 

faça uma página somente com esse conteúdo e vamos ver se funfa...

ASP

[*]

[*]Set ObjHttp= Server.CreateObject("AspHTTP.Conn")

[*]ObjHttp.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"

[*]cotacao = ObjHttp.GetUrl

[*]Set ObjHttp = Nothing

[*]

 

e posta o resultado, ok...

 

;)

[dfsilva 0]

Fiz isso que você falou ficou assim:<%Set ObjHttp= Server.CreateObject("AspHTTP.Conn")ObjHttp.URL = "http://www.investshop.com.br/mer/include/Dolar.csv"cotacao = ObjHttp.GetUrlSet ObjHttp = Nothingresponse.Write(cotacao)%>Mas continua dando o erro:Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida O q sera que é?!

[dark0 0]

entaum, você naum tem o componente instalado!Acho melhor você tentar usar o componente xmlhttpqual servidor web você esta usando aí?

[Mário Monteiro 179]

acusa alguma linha??

 

você tem o camponente AspHTTP??

tb achei que fosse a falta do componente...

[dfsilva 0]

Tem como eu instalar esse componente, como eu acerto esse erro postem o codigo para mim.Obrigado

[Mário Monteiro 179]

na verdade pode nem ter erro...só da pra saber se você instalar o componente e testar seu codigo...

[Salgado 4]

Acredito que se fosse falta de componente o erro seria logo no início, linha 2 do código quando se cria o objeto, ou não?

[Salgado 4]

Repare também que a variável que recebe o valor é "cotacoes" e não "cotaco" que está no IF.

[dfsilva 0]

como eu faco para instalar o componente?