Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim conn As New ClassConnessione
        Dim Gen As New ClassGenerali 
        
        Try
            With conn
               ' Richiamo la connessione dove CONNETTIGENERALE è un oggetto OdbcConnection
                Call .VerificaConnessione(.ConnettiGenerale, DBGenerali)
           
               ' Uso i dati
                Call .EstraiDati(CStr("SELECT * FROM InfoAzienda WHERE Pubblicato=" & Gen.FormattaBooleanMySQL(True) & ";"), .ConnettiGenerale)
                          
                DataListSupportoClienti.DataSource = .Dati
                DataListSupportoClienti.DataBind()

                'chiudo l'oggetto dati
                If Not IsNothing(.Dati) Then
                    If .Dati.IsClosed = False Then .Dati.Close()
                End If

            End With
               
        Catch ex As Exception
            If ViewMsgDebug = "true" Then Gen.MostraMessaggio(HttpContext.Current.Handler, Resources.ResourceMsg.Errore, Resources.ResourceMsg.ErroreInizializzazioneMasterPage & vbCrLf & ex.Message)
            
            Call Gen.ScriviLog("MasterPage_Page_PreRender", ex.Message)
            'gen.SendMailProblemi(ex.Message)
        Finally
          ' chiudo la connessione
            Call conn.ChiudiConnessione(conn.ConnettiGenerale)
            If IsNothing(conn) = False Then conn = Nothing
            If IsNothing(Gen) = False Then Gen = Nothing
        End Try
        
        
    End Sub