ASP.NET

class CReviews
 private m_IDProd
 private m_aReviews
	
 public sub GetReviews(IDProd)
  i = 1
  m_IDProd = IDProd
  mySQL = "SELECT * FROM ProductReviews WHERE IDProd = " & IDProd & ";"
  set rs = conn.execute(mySQL)
		
  if not rs.eof then
   m_aReviews = Array( i )
   rs.movefirst
		
   do while not rs.eof
    ReDim m_aReviews( i )
				
    Set review = New CReview
    review.GetReview( rs("ID") )
    Set m_aReviews( i ) = review
				
    i = i + 1
    rs.movenext
   loop
  end if
 end sub
	
 public function GetReviewCount()
  GetReviewCount = UBound( m_aReviews )
 end function
	
 public function GetReview(nIndex)
  if nIndex > 0 AND nIndex <= GetReviewCount() then
   GetReview = m_aReviews( nIndex )
  else
   GetReview = nothing
  end if
 end function
end class


class CReview
 private m_ID
 private m_ReviewEn
	
 public sub GetReview(ID)
  'do stuff
 end sub
	
 public property Get ReviewEn()
  ReviewEn = m_ReviewEn
 end property
end class


sub GetReview(IDProd)
 Set reviews = New CReviews
 reviews.GetReviews( IDProd )
 response.Write( reviews.GetReviewCount() )
	
 'This line generates the error
 Set review = reviews.GetReview( 1 )
 if review <> nothing then
  response.Write( review.ReviewEn() )
 end if
end sub