<%
Klasse MyClassName
Private int_id 'Kategorie -ID
'Klasseninitialisierung
Private sub class_initialize ()
m_strerror = ""
Ende sub
'Klassenveröffentlichung
Private sub class_terate ()
m_strerror = ""
Ende sub
'----- Lesen und schreiben verschiedene Attribute ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Öffentliches Eigentum erhalten Sie Ausweis
Id = int_id
Beenden Sie Eigentum
Öffentliches Eigentum Let ID (intid)
int_id = intid
Beenden Sie Eigentum
öffentliche Funktionsmethode ()
Endfunktion
Endklasse
%>