i get this error 



Microsoft VBScript runtime error '800a0009' 

Subscript out of range: '[number: 2]' 





this is the script



sub categorymenu



	showcart=false

	'work out contents of shopping cart

	numitems=0



	If IsArray(Session("cart")) = false Then

		Dim acart(299,2)

		Session("cart") = acart

		showcart=false

	else

		acart=Session("cart")

		for i=lbound(acart) to ubound(acart)

		if acart(i,0)<>"" and acart(i,1)<>"" and acart(i,2)<>"" 

then

			numitems=numitems+acart(i,1)

			showcart=true

		end if

		next



	end if