Indkøbskurv og et array

Hej

Jeg har et problem med et array.
Det er til en indkøbskurv. Den virker ved at jeg får antal og et id via en QueryString (Det kan I se i koden)

Array´et ser sådan her ud:
2;42#3;7#1;58

antal;id#antal;id#antal;id


Men jeg kan ikke få min kode til at virke, den laver denne fejl:
Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'arrcart'

/cart.asp, line 43

Linje 43--> AntalCount = AntalCount + CInt(arrcart(i,0))


Her er hele koden:
if request.QueryString("add") = "true" then

    productID = CInt(request.QueryString("productID"))
    antal = CInt(request.QueryString("antal"))

        if session("cart") = "" then
            session("cart") = antal &";"& productID
        else
            session("cart") = session("cart") & "#" & antal &";"& productID
        end if

    response.Redirect("cart.asp")

end if


if session("cart") = "" then
    arrAntal = "Ingen vare!"
    arrPris = " "
    arrVisKurv = " "
else

    cart = session("cart")
    arrcart = Split(cart,"#")

    AntalCount = 0
    Pris = 0
        For i = LBound(arrcart) to UBound(arrcart)
            AntalCount = AntalCount + CInt(arrcart(i,0))

                SQLpris = "SELECT salgspris FROM products WHERE productID = '"&CInt(arrcart(i,1))&"'"
                Set RSpris = Conn.execute(SQLpris)
                salgspris = replace(RSpris("salgspris"), ",", ".")
           
            Pris = CInt(arrcart(i,0)) * salgspris + Pris
        Next

    arrAntal = "Antal vare: <strong>" & AntalCount &"</strong>"

    arrPris = "Pris: <strong>" & FormatNumber(Pris,2) & " Kr.</strong>"
   
    arrVisKurv = "<a href='/viscart.asp?catID="&session("catID")&"'><strong>Gå til kassen</strong></a>"

end if


I må lige sige til hvis I ikke er helt med på hvad jeg mener...

På forhånd tak :o)
// Rene