mdata

 <%@ Control language="vb" AutoEventWireup="false" Explicit="True" Inherits="DotNetNuke.UI.Skins.Skin" %>

 

 <asp:placeholder id="SkinPlaceholder" runat="server">

   <link rel="stylesheet" type="text/css" id="csslink" runat="server" />

   <div id="ControlPanel" runat="server" />

   <div id="ContentPane" runat="server" class="ContentPane Pane" />

 </asp:placeholder>

 

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '**  Skincovered.com Portal Alias based skin switcher

    '**  Switches the skin depending on the Url used to access the site

    '**  Select this skin (topmenu_switch) as would any other skin in DotNetNuke

    '** The code below will load a skin from the same folder depending on the Url

        Dim skin As String = ""

        Dim HostName As String = Request.ServerVariables("SERVER_NAME").ToLower()

        Select HostName.Remove(HostName.IndexOf("."))

            Case "foo":

                skin = "foo"

            Case "bar":

                skin = "bar"

            Case Else:

            'this skin will be loaded if no matches were made to the portal aliases above

                skin = "default"

        End Select

 

        'this line loads the actual skin.

        Dim sc As Control = LoadControl(skin+".ascx")

        SkinPlaceholder.Controls.Remove(ControlPanel)

        SkinPlaceholder.Controls.Remove(ContentPane)

        SkinPlaceholder.Controls.Add(sc)

        csslink.Attributes.Add("href", SkinPath+skin+".css")

    End Sub