<%
Class class1
    '================================
    ' Class Constructor / Initializer
    '================================ 
    Private Sub Class_Initialize()
            'Do Nothing
    End Sub
    
    '=========================================
    '## Class_Terminate           ##
    '## Fires during class destruction    ##
    '=========================================
    Private Sub Class_Terminate()
      'Do Nothing
    End Sub
    
    '===========================
    '## Private Class Members ##
    '===========================
    Private m_proprieta


    
    Public Property Get proprieta()
      proprieta = cstr(m_proprieta)
    End Property
    
    Public Property Let proprieta(p_Data)
      m_proprieta = cstr(p_Data)
    End Property

    '#############  Public Functions ##############
    
    function write() 
        Response.Write m_proprieta
    end function

    
End Class
%>

<%
Class class2
    '================================
    ' Class Constructor / Initializer
    '================================ 
    Private Sub Class_Initialize()
            'Do Nothing
    End Sub
    
    '=========================================
    '## Class_Terminate           ##
    '## Fires during class destruction    ##
    '=========================================
    Private Sub Class_Terminate()
      'Do Nothing
    End Sub
    
    '===========================
    '## Private Class Members ##
    '===========================
    Private m_proprieta


    
    Public Property Get proprieta()
      proprieta = cstr(m_proprieta)
    End Property
    
    Public Property Let proprieta(p_Data)
      m_proprieta = cstr(p_Data)
    End Property

    '#############  Public Functions ##############
    
    function write() 
        Response.Write m_proprieta
    end function

    
End Class
%>

<!--#include file="class1.asp"-->
<!--#include file="class2.asp"-->
<%
    dim istanzaClasse1, istanzaClasse2

    Set istanzaClasse1= new class1
    Set istanzaClasse2= new class2

    
    
    istanzaClasse1.proprieta="proprietà classe 1"
    istanzaClasse2.proprieta="proprietà classe 2"

    istanzaClasse1.write 
    
    Response.Write    "
"
    
    istanzaClasse2.write 
    

%>