Sistema

[praxade 0]

Boa tarde senhores, estou desenvolvendo um sistema de cotação de dólar. mas ele está dando um erro de intervalo. Podem me ajudar?

http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Esse é o erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a0009'

 

Subscrito fora do intervalo: '[number: 15]'

 

/fernando/dolar/teste/Index.asp, line 35

 

Esse é o 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) = ";") 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) ====>Essa é a linha do erro

PTAX_VENDA = valores(16)

PTAX_VARIACAO = valores(17)

 

 

%>

 

Esse é o link:

 

http://www3.netium.com.br/fernando/dolar/teste/

 

 

Agradeço à compreensão de todos.

[joacatito 0]

Pelo jeito, esse array que você criou só tá jogando 13 elementos.

Ele não tá achando do 15º elemento em diante.

 

Dá uma olhada em: http://www.aspfaq.com/show.asp?id=2317

 

Qualquer coisa, volte a postar.

[praxade 0]

Então qual o valor da ARRAY que devo trocar?