funzioni e classi

[longline]

function ControlloValidita(recordset)
   dim miaValidita
   Set miaValidita = new Validita
   miaValidita.Stato = True
   miaValidita.Descrizione = "Non Dichiarata"
 ControlloValidita=miaValidita.Stato
end function