Erro no Atualizar do carrinho de compras...

[WLJ 0]

Pessoal peguei esse codigo aqui mesmo no Fórum.

Alguém sabe o que pode ser?

 

Erro:

 

Microsoft VBScript runtime error '800a0009' Subscript out of range: 'Loop1' /loja/carrinho.asp, line 275

<%Function atualizar_item()Dim Atualizar, AtualizarItem, Prod_Qtde, CarQtdes       'ESVAZIO O SUBTOTAL       Session("SubTotal") = Empty       'RECUPERO TODAS AS QTDES DO FORM       Prod_Qtde   = Request.Querystring("qtd")       'QUEBRO AS QTDES PELA VÍRGULA       CarQtdes   = Split(Prod_Qtde, "&")   	      'SEPARO CADA PRODUTO DO CARRINHO EM UMA INSTANCIA DO ARRAY       Atualizar = Split(Session("Carrinho"), "@")       'PRIMEIRO LOOP (CADA PRODUTO)   	For Loop1 = LBound(Atualizar) TO UBound(Atualizar)          'QUEBRO CADA ÍTEM DO PRODUTO QUE ESTAH SENDO UTILIZADO NO MOMENTO PELO SCRIPT          AtualizarItem = Split(Atualizar(Loop1), "&")          'VERIFICA SE A VARIÁVEL ESTAH VAZIA, SE ESTIVER, SERÁ INSERIDO O PRIMEIRO PRODUTO          If IsNumeric(CarQtdes(Loop1))  ##################LINHA 275#############            If IsEmpty(Carrinho) Then                'INSIRO O PRIMEIRO PRODUTO NO CARRINHO                Carrinho = AtualizarItem(0) &"&"& AtualizarItem(1) &"&"& AtualizarItem(2) &"&"& Trim(CarQtdes(Loop1))             Else                'ADICIONO OS OUTROS PRODUTOS JUNTO COM O RESTANTE                Carrinho = Carrinho &"@"& AtualizarItem(0) &"&"& AtualizarItem(1) &"&"& AtualizarItem(2) &"&"& Trim(CarQtdes(Loop1))             End If             'CALCULO O SUBTOTAL             Session("SubTotal") = Session("SubTotal") + (AtualizarItem(2) * Trim(CarQtdes(Loop1)))          End If       Next       'PREENCHO A SESSÃO PRINCIPAL COM OS DADOS JA ATUALIZADO       Session("Carrinho") = Carrinho  	Response.Redirect("main.asp?cat=carrinho&acao=mostrar")End Function%>

[WLJ 0]

Já achei o erro pessoal valew!