Subscript out of range - hvorfor

Jeg har følgende kode
(se nederst)
når jeg tilføjer nummer 11 (dvs. at scartItem = 11) får jeg følgende fejl er der nogen som kan regne ud hvorfor

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '11'
addprod.asp, line 38
(har markeret linie 38 i kode)

- - - - -
Dim prodid, quantity, arrCart, scartItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart = Session("MyCart")
scartItem = Session("cartItem")


If scartItem < maxCartItems Then
  scartItem = scartItem + 1
End If

Session("cartItem") = scartItem
dim rsItem
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "products", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable
rsItem.Filter = "catalogID = " & prodid

If Not rsItem.EOF Then
  arrCart(cProductid,scartItem) = rsItem("catalogID")        ' LINIE 38
  arrCart(cProductCode,scartItem) = rsItem("ccode")
  arrCart(cProductname,scartItem) = rsItem("cname")
  arrCart(cQuantity,scartItem) = CInt(quantity)
  arrCart(cUnitPrice,scartItem) = rsItem("cprice")
  Session("MyCart") = arrCart
  rsItem.Close
  dbc.Close
End If