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