Torna al Thread

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
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5