Imports BVSoftware.BVC.Core Public Class EmailThisPage Inherits System.Web.UI.UserControl #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents RemoteWindow1 As MetaBuilders.WebControls.RemoteWindow 'NOTE: The following placeholder declaration is required by the Web Form Designer. 'Do not delete or move it. Private designerPlaceholderDeclaration As System.Object 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 Protected WithEvents imgEmail As System.Web.UI.WebControls.Image Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then Me.imgEmail.ImageUrl = ImageHelper.GetThemedButton("EmailThisPage.gif") End If 'If BVC2004Store.IsUserAuthenticated = True Then Me.RemoteWindow1.NavigateUrl = "~/EmailFriend.aspx?page=" & Server.UrlEncode(Request.Url.AbsoluteUri) 'Else ' Me.RemoteWindow1.Visible = False 'End If End Sub End Class