Imports BVSoftware.BVC.Core Public MustInherit Class AdminFooter Inherits System.Web.UI.UserControl Protected WithEvents lblVersion As System.Web.UI.WebControls.Label Protected WithEvents PoweredBy As System.Web.UI.WebControls.Label #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load LoadVersion() PopulatePoweredBy() End Sub Sub LoadVersion() lblVersion.Text = DiagnosticServices.GetAssemblyProductName("bin/BVC2004.dll") End Sub Sub PopulatePoweredBy() If WebAppSettings.ShowPoweredBy = True Then Dim affID As String = WebAppSettings.PoweredByAffiliateID If affID.Trim.Length() > 0 Then PoweredBy.Text = "" Else PoweredBy.Text = "" End If If Request.IsSecureConnection() = True Then PoweredBy.Text += "" Else PoweredBy.Text += "" End If End If End Sub End Class