Demo.asp

<%
    
Class Demo
    Private p_name
    Private p_sobrenome

    Public Property Get Name()
        Name = p_name
    End Property

    Public Property Let Name(value)
        p_name = value
    End Property

    Public Property Get Sobrenome()
        Sobrenome = p_sobrenome
    End Property

    Public Property Let Sobrenome(value)
        p_sobrenome = value
    End Property
End Class


    function SerializarDemo(d)
        Session("demo.nome") = d.Name
        Session("demo.sobrenome") = d.Sobrenome
    end Function

    function DeserializarDemo()
        Set resultado = new Demo

        resultado.Name = Session("demo.nome")
        resultado.Sobrenome = Session("demo.sobrenome")
    
    Set DeserializarDemo = resultado
    end function
    
    function LimparSerializacaoDemo()
        Session("demo.nome") = null
        Session("demo.sobrenome") = null
    end function

%>

PaginaI.asp

<!--#include file="Demo.asp"-->
<%
    Set demoObjeto = DeserializarDemo()

    Response.Write(demoObjeto.Name)
    Response.Write("<br>")
    Response.Write(demoObjeto.Sobrenome)
    Response.Write("<hr>")

    LimparSerializacaoDemo()

    Set demoObjetov2 = DeserializarDemo()

    Response.Write(demoObjetov2.Name)
    Response.Write("<br>")
    Response.Write(demoObjetov2.Sobrenome)
    Response.Write("<hr>")
%>

PaginaII.asp

<!--#include file="Demo.asp"-->
<%
    Set demoObjeto = DeserializarDemo()

    Response.Write(demoObjeto.Name)
    Response.Write("<br>")
    Response.Write(demoObjeto.Sobrenome)
    Response.Write("<hr>")

    LimparSerializacaoDemo()

    Set demoObjetov2 = DeserializarDemo()

    Response.Write(demoObjetov2.Name)
    Response.Write("<br>")
    Response.Write(demoObjetov2.Sobrenome)
    Response.Write("<hr>")
%>