CStrCat v. 1.1

<%
Class CStrCat //v1.1
	Private i,sa()
	Public Property Get Value
		redim preserve sa(i)
		Value=Join(sa,"")
	End Property 
	Private Sub Class_Initialize()
		i=clng(0)
		redim sa(500)
	End Sub
	private sub class_terminate()
		erase sa
	end sub
	Public function Add(ps)
		if len(ps)=0 then exit function
		if (i>=ubound(sa)) then upsize
		sa(i)=ps
		i=i+1
	End function
	private sub upsize()
		dim u
		u=ubound(sa)
		redim preserve sa(clng(u+u*0.1))
	end sub
End Class 
%>