Protected Sub ImageButton3_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton3.Click
        Dim Albergo As iAlbergo

        Albergo = CType(Session("Albergo"), iAlbergo)

        lbl_Descrizione_Albergo.Text = Albergo.Descrizione

        Session("ListaPartenze") = Nothing
        Session("ListaAlloggiati") = Nothing

        Call CercaSchedineAlbergo("01/01/1900", txt_Data_Partenza.Text)
        Call CercaSchedinePartiti(txt_Data_Partenza.Text)
        Call RiempiStatistiche_partenza(Albergo)

        Albergo = Nothing

        txt_Data_Partenza.Text = ImpostaDataLavoro()
    End Sub