Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'da copiare in tutte le pagine...
        Page.Title = Resources.ResourceMaster.PageTitle & "; " & Resources.ResourcePagesTitle.titleCarrello

        'System.Threading.Thread.Sleep(5000)

        If Not IsPostBack Then

            Dim conn As New ClassConnessione
            Dim clsGen As New ClassGenerali

            '+++ fine verifica abilitazione carrello +++
            If Session("IdUserLogged") <> "" Then


                Dim IdUser As Integer = 0
                IdUser = clsGen.EstraiSessionIdUser(Session("IdUserLogged"))

                If IdUser > 0 Then
                    '+++ Verifica abilitazione carrello +++
                    'Call VerificaAbilitazioneCarrello()
                    Call conn.EstraiDati("SELECT * FROM AbilitazioneCarrello", conn.ConnettiCatalogo)
                    If conn.Dati.HasRows = True Then
                        If conn.Dati("CarrelloAbilitato") = 0 Then
                            Call clsGen.MostraMessaggio(HttpContext.Current.Handler, "CartTemporaryDisabled", conn.Dati("MSGCarrelloDisabilitato"))
                            PanelCarrelloDisabilitato.Visible = True
                            PanelCarrello.Visible = False

                            lblCarrelloDisabilitato.Text = conn.Dati("MSGCarrelloDisabilitato")
                            Exit Sub
                        End If
                        conn.Dati.Close()
                    End If
                Else
                    PanelAutenticarsi.Visible = True
                    PanelCarrello.Visible = False
                End If

                clsGen = Nothing


                With conn
                    If .VerificaConnessione(.ConnettiCatalogo) = False Then .RichiamaConnCatalogoMySQL()

                    '+++ Caricamente RepeaterCarrello +++

                    Call .EstraiDati(CStr("SELECT DISTINCT (Cart.id),ColorFotoFront,CodNome,DescNome,Prezzo,ProductID,PrezzoPromo,Quantity,Taglie.Taglia,Colori.Colore FROM Cart, Magliette, ColoriDisponibili, Taglie, Colori WHERE CartUserID =" & CInt(IdUser) & " AND Cart.ProductID=Magliette.id AND ColoriDisponibili.IdColore=Cart.Colore AND Taglie.id=Cart.Taglia AND Colori.id=Cart.Colore GROUP BY Cart.id"), conn.ConnettiCatalogo)

                    If .Dati.HasRows = False Then
                        PanelCarrelloVuoto.Visible = True
                        PanelAutenticarsi.Visible = False
                        PanelCarrello.Visible = False
                    End If

                    RepeaterCarrello.DataSource = .Dati
                    RepeaterCarrello.DataBind()

                    .Dati.Close()



                End With

            Else

                PanelAutenticarsi.Visible = True
                PanelCarrello.Visible = False

            End If

        End If

    End Sub