Dim Albergo As iAlbergo
        Dim Schedine As ColSchedine

        Albergo = CType(Session("Albergo"), iAlbergo)
        Schedine = clsSchedineProvider.RestituisciSchedineAlbergoTutti_tassa(Session.Item("dalgiorno"), Session.Item("dalgiorno"), Albergo, "")

        Session("ListaArrivatiOggi") = Nothing

        If Schedine.Count > 0 Then
            Session("ListaArrivatiOggi") = Schedine
        End If

        Schedine = Nothing
        gw_Arrivati_Oggi.DataSourceID = ""
        gw_Arrivati_Oggi.DataSource = CType(Session("ListaArrivatiOggi"), ColSchedine)
        gw_Arrivati_Oggi.DataBind()