<!--#include file="LinkedList.Class.asp"--> <% Class Stack '********* MEMBER VARIABLES ********** Private wlList '************************************* '********* EVENT HANDLERS ************ Private Sub Class_Initialize() 'Allocate the weak list instance Set wlList = New WeakList End Sub Private Sub Class_Terminate() Set wlList = Nothing 'Clean up! End Sub '************************************* '************ PROPERTIES ************* Public Property Get Count() Count = wlList.Count End Property '************************************* '************* METHODS *************** Public Function Push(varItem) wlList.AddHead(varItem) End Function Public Function Pop() Pop = wlList.RemoveHead() End Function Public Function Peek() Peek = wlList.PeekHead() End Function '************************************* End Class %>