Public Class LinkClienti
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '********************************************************
        '--- Controllo Autenticazione per accesso alla pagina ---
        If Not Session("Autenticato") Then
            Response.Redirect("LoginUser.aspx")
        End If
        '********************************************************


        '--- imposta la connessione al database sui datasource
        Dim xSystemcs = ConfigurationManager.ConnectionStrings("pa_systemConnectionString").ConnectionString
        dsLinkUtenti.ConnectionString = xSystemcs
        dsUtentiClienti.ConnectionString = xSystemcs

    End Sub

End Class