<%
  Class Basket
     public products
     public message
     Private Sub Class_Initialize()
        reDim products( 0 )
     End Sub
     Public Sub Init(Session)
       if not (IsNull(Session("UserBasket"))) then
          Me.products = Session("UserBasket")
          message =  1 
          else 
          message =  2 
       end if
     End Sub
     Sub removeProduct(ByVal index)
       Dim tempArray( 0 )
       reDim tempArray(getLength- 1 )
       ti =  0 
       for i =  0  to getLength
         if i<>index then
          tempArray(ti) = products(i)
          ti = ti +  1 
         end if
       next 
     End Sub
     Sub addProduct(p)
       reDim Preserve products(getLength+ 1 )
       set products(getLength -  1 ) = p
     end sub  
     Function getLength
       getLength = UBound(products) - LBound(products)
     end function
     Function getProduct(i)
       getProduct = products(i).getId
     End Function
     Function Clear
       reDim products( 0 )
     End Function
  End Class


  Class Product
     public id
     public categoryId
     Function getId
        getId = id
     End Function
     Function getCategoryId
        getCategoryId = categoryId
     End Function
  End Class
%>

<%@ Language=VBScript %>
<% Response.Buffer=True %>
<!-- #include file="basket.asp" -->
Set b = new Basket
   b.Init(Session)
   if IsEmpty(Request.QueryString("Clear")) then
		for i= 0  to  10  
			Set p = new Product
			p.id = "ID"&i
			p.categoryId = "categoryId"&i
			b.addProduct(p.id)
		next
		Session("UserBasket") = b.products
		Response.Write("Basket set in session<br>")
	else
	    b.Clear
		Session("UserBasket") = null
		Response.Write ("User basket remove from session and clear")
   end if

Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method 

/basket/test2.asp, line  13  

error '8000ffff' 
/basket/test2.asp, line  13