Protected Sub ImgBtnVaiAllaCassa_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImgBtnVaiAllaCassa.Click

       
End Sub

    Public Sub btnAcquistaControlla(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)

        Dim lblQualeSpedizione As Label = PanelCarrello.FindControl("lblComeSpedisceID")
        If lblQualeSpedizione.Text = "" Then
            'MsgBox("NESSUNA SPEDIZIONE SELEZIONATA")
            
            ScriptManager.RegisterStartupScript(Me, Me.GetType, "SpedMancante", "alert('Spedizione mancante!');", True)
            Exit Sub
        End If

     
    End Sub