<%
Clase myClassName
ID de categoría privado int_id '
'Inicialización de clase
Sub class_initialize () privado ()
m_strerror = ""
Final
'Release de clase
Sub class_terminate () privado ()
m_strerror = ""
Final
'----- Leer y escribir varios atributos ---------------------------------------------------------------------------------------------------------
Propiedad pública Get ID
Id = int_id
Propiedad final
Propiedad pública Let Id (Intid)
int_id = intid
Propiedad final
Método de función pública ()
Función final
Clase final
%>