Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
       Banner1.NavigateUrl = "http://imar.spaanjaars.com"
    End If
  End Sub

 
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="Banner.ascx.vb" Inherits="Controls_Banner" %>

<asp:Panel ID="pnlVertical" runat="server">
    <a href="http://p2p.wrox.com" target="-blank" runat="server" id="lnkVertical"> 
    <asp:Image ID="Image1" runat="server" AlternateText="This is a Vertical banner" 
    ImageUrl="~/Images/Banner120x240.gif" />
  </a>   
</asp:Panel>

<asp:Panel ID="pnlHorizontal" runat="server">
   <a href="http://p2p.wrox.com" target="-blank" runat="server" id="lnkHorizontal"> 
    <asp:Image ID="Image2" runat="server" AlternateText="This is a Horizonal banner" 
    ImageUrl="~/Images/Banner468x60.gif" />
  </a>  
</asp:Panel>

 

Partial Class Controls_Banner
    Inherits System.Web.UI.UserControl

  Protected Sub Page_load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    pnlHorizontal.Visible = False
    pnlVertical.Visible = False


    Select Case DisplayDirection
      Case Direction.Horizontal
        pnlHorizontal.Visible = True
        lnkHorizontal.Href = NavigateUrl
      Case Direction.Vertical
        pnlVertical.Visible = True
        lnkVertical.Href = NavigateUrl
    End Select

  End Sub


  Private _displayDirection As Direction = Direction.Vertical ' the = Direction.Vertical is not necessary
  Public Property DisplayDirection() As Direction
    Get
      Return _displayDirection
    End Get
    Set(ByVal value As Direction)
      _displayDirection = value
    End Set
  End Property



  Public Property NavigateUrl() As String
    Get
      Dim _navigateUrl As Object = ViewState("NavigateUrl")
      If _navigateUrl IsNot Nothing Then
        Return CType(_navigateUrl, String)
      Else
        Return "http://p2p.wrox.com"
      End If
    End Get
    Set(ByVal value As String)
      ViewState("NavigateUrl") = value
    End Set
  End Property

<%@ Page Title="About Us" Language="VB" MasterPageFile="~/MasterPages/MasterPage.master" AutoEventWireup="false" CodeFile="AboutUs.aspx.vb" Inherits="AboutUs" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="cpMainContent" Runat="Server">
  <h1>About Us</h1>
  <p>This site is for those that love music and love to discuss music
     You are welcome to add your views and comments to the site and to 
     share you pictures and comments from shows and concerts you have attended.
  </p>
     
  <asp:Button ID="Button1" runat="server" Text="Button" />
   <br />
   <br />


  <!-- The line below is the User Control declaration for the banner --> 
  <Wrox:Banner ID="Banner1" runat="server" DisplayDirection="Horizontal" />
  
</asp:Content>