The ArrayList class in ASP

Use the following methods:

Program code
<%
Dim Arr:set arr=new ArrayList
Arr.add "a": Arr.add "B": Arr.add "C"
Response.Write Arr.count & "<br>"
For I=0 to Arr.count-1
Response.Write Arr.item (i) & "<br>"
Next
Set arr=nothing
%>

Class ArrayList
Private M_array ()
Private m_count
Private Sub class_initialize ()
    Redim M_array (0)
    m_count=0
End Sub
Private Sub class_terminate ()
    Redim M_array (0)
    m_count=0
End Sub
Public Property Get Count ()
    Coun T=m_count
End Property
Public Property Get Item (index)
    item=m_array (index)
End Property
Public Function Add (arritem)
    Redim Preserve m_array (m_count)
     M_array (m_count) =arritem
    m_count=m_count+1
End Function
End Class
%>