Cotação

[N3G4T1V3 0]

Galera eu sempre usei esse código para obter a cotação do dólar, iene e euro porém ele do nada começou a dar o seguinte erro:

 

Microsoft VBScript runtime error '800a0005'

 

Invalid procedure call or argument: 'inStr'

 

/cotacoes/cotacao_online.asp, line 143

 

 

se alguem souber o que ta acontecendo da um toke que num sei pq do nada começou a dar esse erro...

o código é esse:

 

<%

Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")

'============================================================================

=================

'Tabela com o valor do Dolar

'============================================================================

=================

XMLHttp.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/cotacaomoedas.htm", false

XMLHttp.send()

 

pega = XMLHttp.ResponseText

cotacao = LCase(pega)

 

Set cod = Nothing

 

'=====================================================

' Valor do Dólar

'=====================================================

save = cotacao

id = 1

id = inStr(id,cotacao,"zwd")

 

' Código da Moeda

id = inStr(id,cotacao,"<tr>")

id = inStr(id,cotacao,"<td")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

CodMoeda = Mid(cotacao,id,(fd-id))

CodMoeda = Replace(CodMoeda,">"," ")

 

' Tipo da Moeda

id = inStr(fd,cotacao,"<td ")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

Tipo = Mid(cotacao,id,(fd-id))

Tipo = Replace(Tipo,">"," ")

 

' Moeda

id = inStr(fd,cotacao,"<td ")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

Moeda = Mid(cotacao,id,(fd-id))

Moeda = Replace(Moeda,">"," ")

 

'Taxa de Compra Dolar

id = inStr(fd,cotacao,"<td ")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

DolarCompra = Mid(cotacao,id,(fd-id))

DolarCompra = Replace(DolarCompra,">"," ")

 

'Taxa de Venda Dolar

id = inStr(fd,cotacao,"<td ")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

DolarVenda = Mid(cotacao,id,(fd-id))

DolarVenda = Replace(DolarVenda,">"," ")

 

' Paridade Compra

id = inStr(fd,cotacao,"<td ")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

DParCompra = Mid(cotacao,id,(fd-id))

DParCompra = Replace(DParCompra,">"," ")

 

' Paridade Venda

id = inStr(fd,cotacao,"<td ")

id = inStr(id,cotacao,">")

fd = inStr(id,cotacao,"</td>")

DParVenda = Mid(cotacao,id,(fd-id))

DParVenda = Replace(DParVenda,">"," ")

 

 

 

'=====================================================

' Valor do Iene

'=====================================================

 

save = cotacao

 

i = 1

i = inStr(i,cotacao,"uah")

 

' Codigo da Moeda

i = inStr(i,cotacao,"<tr>")

i = inStr(i,cotacao,"<td")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

CodMoedaI = Mid(cotacao,i,(fi-i))

CodMoedaI = Replace(CodMoedaI,">"," ")

 

' Tipo da Moeda

i = inStr(fi,cotacao,"<td ")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

TipoI = Mid(cotacao,i,(fi-i))

TipoI = Replace(TipoI,">"," ")

 

' Moeda

i = inStr(fi,cotacao,"<td ")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

MoedaI = Mid(cotacao,i,(fi-i))

MoedaI = Replace(MoedaI,">"," ")

 

'Taxa de Compra IENE

i = inStr(fi,cotacao,"<td ")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

IeneCompra = Mid(cotacao,i,(fi-i))

IeneCompra = Replace(IeneCompra,">"," ")

 

'Taxa de Venda IENE

i = inStr(fi,cotacao,"<td ")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

IeneVenda = Mid(cotacao,i,(fi-i))

IeneVenda = Replace(IeneVenda,">"," ")

 

' Paridade Compra IENE

i = inStr(fi,cotacao,"<td ")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

IParCompra = Mid(cotacao,i,(fi-i))

IParCompra = Replace(IParCompra,">"," ")

 

' Paridade Venda IENE

i = inStr(fi,cotacao,"<td ")

i = inStr(i,cotacao,">")

fi = inStr(i,cotacao,"</td>")

IParVenda = Mid(cotacao,i,(fi-i))

IParVenda = Replace(IParVenda,">"," ")

 

 

'=====================================================

' Valor do Euro

'=====================================================

 

save = cotacao

 

e = 1

e = inStr(e,cotacao,"pzn")

 

' Codigo da Moeda

e = inStr(e,cotacao,"<tr>") (linha do erro)

e = inStr(e,cotacao,"<td")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

CodMoedaE = Mid(cotacao,e,(fe-e))

CodMoedaE = Replace(CodMoedaE,">"," ")

 

' Tipo da Moeda

e = inStr(fe,cotacao,"<td ")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

TipoE = Mid(cotacao,e,(fe-e))

TipoE = Replace(TipoE,">"," ")

 

' Moeda

e = inStr(fe,cotacao,"<td ")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

MoedaE = Mid(cotacao,e,(fe-e))

MoedaE = Replace(MoedaE,">"," ")

 

'Taxa de Compra EURO

e = inStr(fe,cotacao,"<td ")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

EuroCompra = Mid(cotacao,e,(fe-e))

EuroCompra = Replace(EuroCompra,">"," ")

 

'Taxa de Venda EURO

e = inStr(fe,cotacao,"<td ")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

EuroVenda = Mid(cotacao,e,(fe-e))

EuroVenda = Replace(EuroVenda,">"," ")

 

' Paridade Compra

e = inStr(fe,cotacao,"<td ")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

EParCompra = Mid(cotacao,e,(fe-e))

EParCompra = Replace(EParCompra,">"," ")

 

' Paridade Venda

e = inStr(fe,cotacao,"<td ")

e = inStr(e,cotacao,">")

fe = inStr(e,cotacao,"</td>")

EParVenda = Mid(cotacao,e,(fe-e))

EParVenda = Replace(EParVenda,">"," ")

 

DolarCompra= FormatNumber(DolarCompra,2)

DolarVenda= FormatNumber(DolarVenda,2)

EuroCompra= FormatNumber(EuroCompra,2)

EuroVenda= FormatNumber(EuroVenda,2)

IeneCompra= FormatNumber(IeneCompra,3)

IeneVenda= FormatNumber(IeneVenda,3)

 

'response.write "Codigo da Moeda: "&CodMoeda&"<BR>"

'response.write "Tipo: "&Tipo&"<BR>"

'response.write "Moeda: "&Moeda&"<BR>"

'response.write "Iene Compra: "&IeneCompra&"<BR>"

'response.write "Iene Venda: "&IeneVenda&"<BR>"

'response.write "Dolar Compra: "&DolarCompra&"<BR>"

'response.write "Dolar Venda: "&DolarVenda&"<BR>"

'response.write "Euro Compra: "&EuroCompra&"<BR>"

'response.write "Euro Venda: "&EuroVenda&"<BR>"

'response.write "Codigo da Moeda Euro: "&CodMoedaE&"<BR>"

'response.write "Codigo da Moeda IENE: "&CodMoedaI&"<BR>"

'response.write "Codigo da Moeda DOLAR: "&CodMoeda&"<BR>"

 

%>

 

<%

Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")

'============================================================================

=================

'Tabela com a data de Cotação

'============================================================================

=================

XMLHttp.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", false

XMLHttp.send()

 

pega = XMLHttp.ResponseText

cotacao = LCase(pega)

 

Set cod = Nothing

 

'=====================================================

' Data da Cotação

'=====================================================

save = cotacao

dt = 1

dt = inStr(dt,cotacao,"taxa de venda")

 

' Data

dt = inStr(dt,cotacao,"<tr>")

dt = inStr(dt,cotacao,"<td")

dt = inStr(dt,cotacao,">")

ft = inStr(dt,cotacao,"</td>")

Data = Mid(cotacao,dt,(ft-dt))

Data = Replace(Data,">"," ")

%>

[Bruno Saito 0]

Aew fera.. o seu erro é facil..como você percebeu o erro apareceu de um dia pro outro certo?se estava funcionando corretamente só pode ter um erro, o Site do BCB mudo algo e você não..o erro se encontra logo acima da linha que da erro..você pede pra puxar as informações da linha PZN:

e = 1e = inStr(e,cotacao,"pzn")' Codigo da Moedae = inStr(e,cotacao,"<tr>") (linha do erro)

no site do BCB eles mudaram o euro pra PLN..eu testei e mudei e deu certo..espero que tenha resolvido seu problemaPS: Cara você salvou minha vida huHAuhAuA, tava caçando essa programação a seculos.. valew

[shumi 0]

Bruno, eu acho que o cara já resolveu o erro faz tempo!Olha a data do tópico!06/07/2005 - 10:12