Class NIC 'Creates a class named NIC
Private Wawavalue 'creates an internal private variable
Private sub coplass_initialize () 'Defines the initialization event of the class
Response.write ("NIC class is created
")
WAWAVALUE = 1
End Sub
Private sub coplass_terminate 'Set the Terminate event. 'Defining the empty event
Response.write ("
NIC class is emptied"))
End Sub
Public property letrynetynic (Byval NIC_ARG) 'Defines a list attribute of the class.
WAWAVALUE = NIC_ARG
End Property
Public property get protynic () 'Defines a Get property of a class.
Propertynic = nicvalue
End Property
Public Function Functionnic (BYVAL NIC_ARG) 'Defines a method of one class
DIM Name, Value
Name = "nn"
Functionnic = NIC_ARG NAME
END FUNCTION
END CLASS