<%
	Class Studenti
	Private VarNome, VarCognome, VarClasse, VarIndirizzo

	Public Property Get Nome()
   	 	' restituisce il valore della variabile membro VarNome
	   	 Nome = VarNome
	End Property

	Public Property Let Nome (ByVal NuovoNome)
   		 ' attende il valore della variabile membro VarNome
	    	VarNome = NuovoNome
	End Property

	Public Property Get Cognome()
   		 ' restituisce il valore della variabile membro VarCognome
	      Cognome = VarCognome
	End Property

	Public Property Let Cognome (ByVal NuovoCognome)
   	 	' attende il valore della variabile membro VarCognome
    		VarCognome = NuovoCognome
	End Property

	Public Property Get Classe() 
   		 ' restituisce il valore della variabile membro VarClasse
	    	Classe = VarClasse
	End Property

	Public Property Let Classe (ByVal NuovaClasse)
   		 ' attende il valore della variabile membro VarClasse
    		VarClasse = NuovaClasse
	End Property

	Public Property Get Indirizzo() 
	   	 ' restituisce il valore della variabile membro VarIndirizzo
    		Indirizzo = VarIndirizzo
	End Property

	Public Property Let Indirizzo (ByVal NuovoIndirizzo)
   		 ' attende il valore della variabile membro VarIndirizzo
	      VarIndirizzo = NuovoIndirizzo
	End Property

	Public Function NomeGlobale() 
   	Dim TipoIndirizzo 
		TipoIndirizzo = "Tradizionale"
		If Indirizzo = "Mercurio" Then
        		TipoIndirizzo = "Specialistico"
		End If
		NomeGlobale = Cognome & " " & Nome & " " & TipoIndirizzo
	End Function
	End Class
%>