1 reply to this topic

[N3G4T1V3]

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")
& #39;============================================================================
=================
'Tabela com o valor do Dolar
& #39;============================================================================
=================
XMLHttp.open "GET", "http://www.bcb.gov.b...acaomoedas.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")
& #39;============================================================================
=================
'Tabela com a data de Cotação
& #39;============================================================================
=================
XMLHttp.open "GET", "http://www.bcb.gov.b...axas/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,">"," ")
%>

[listeylor]

Apaga a linha de erro e faz o texte para ver se pega.