ASP Class

Class className
  [Public | Private] propertyName 

  Private Sub Class_Initialize()  
    '...action when the class initialize
  End Sub

  'Cleaning up.
  'Unhand that RAM you hog !
  Private Sub Class_Terminate()
    '...action when the class terminate
  End Sub

  [Public [Default]| Private] Property Get name [(arglist)]
    [statements]
    [[Set] name = expression]
    [Exit Property] 
    [statements]
    [[Set] name = expression]
  End Property

  [Public | Private] Property Let name ( [arglist,] value)
    [statement]
    [Exit Property] 
    [statement]
  End Property

  [Public | Private] Property Set name( [arglist,] reference)
    [statement]
    [Exit Property] 
    [statement]
  End Property


End Class