problem med klasse eller attributten 'inherits'

Hej

Og godt vinterferie eller hvad vi nu skal sige her den sidste dag.

Jeg får denne fejl efter at jeg har tilføjet noget der arbejder med tabs og pageidentity, kan nogle evt hjælpe mig igennem så det virker og evt. se om der skulle være andre fejl for ved ikke om man nå have 2 page_load på samme code behind og hvis ikke hvad gør man så !?

:::FEJL:::
Fejlmeddelelse om kompileringsfunktion: ASPNET: Kontroller, at klassen, der er defineret i denne kodefil, svarer til attributten 'inherits', og at den udvider den korrekte basisklasse (f.eks. Page eller UserControl).

Kildefejl:

Linje 1:  Imports System
Linje 2:  Imports Telerik.QuickStart
Linje 3:  Imports Telerik.WebControls

:::Default2.aspx:::
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="true" CodeFile="Default2.aspx.vb" Inherits="XhtmlPage" title="Untitled Page" %>
<%@ Register Assembly="RadTabStrip.Net2" Namespace="Telerik.WebControls" TagPrefix="radTS" %>
<asp:Content ID="Content1" ContentPlaceHolderID="KennelEnggaardMenu" Runat="Server">
<radTS:RadTabStrip ID="RadTabStrip1" Skin="None" runat="server">
<Tabs>
<radTS:Tab runat="server" SelectedImageUrl="~/images/omos_selected.png" ID="Om_Os" ImageOverUrl="~/images/omos_hover.png" ImageUrl="~/images/omos.png" EnableTheming="True" NavigateURL="default2.aspx"></radTS:Tab>
<radTS:Tab runat="server" SelectedImageUrl="~/images/omcairn_selected.png" ID="Om_Cairn" ImageOverUrl="~/images/omcairn_hover.png" ImageUrl="~/images/omcairn.png" NavigateURL="default2.aspx?pageidentity=omcairn"></radTS:Tab>
<radTS:Tab runat="server" SelectedImageUrl="~/images/galleri_selected.png" ID="Galleri" ImageOverUrl="~/images/galleri_hover.png" ImageUrl="~/images/galleri.png" NavigateURL="default2.aspx?pageidentity=galleri"></radTS:Tab>
<radTS:Tab runat="server" SelectedImageUrl="~/images/g&#230;stebog_selected.png" ID="G&#230;stebog" ImageOverUrl="~/images/g&#230;stebog_hover.png" ImageUrl="~/images/g&#230;stebog.png" NavigateURL="default2.aspx?pageidentity=gaestebog"></radTS:Tab>
<radTS:Tab runat="server" SelectedImageUrl="~/images/links_selected.png" ID="Links" ImageOverUrl="~/images/links_hover.png" ImageUrl="~/images/links.png" NavigateURL="default2.aspx?pageidentity=links"></radTS:Tab>
</Tabs>
</radTS:RadTabStrip>
</asp:Content>

:::Default2.aspx.vb:::
Imports System
Imports Telerik.QuickStart
Imports Telerik.WebControls
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data.OleDb
Imports System.Configuration
Imports Microsoft.VisualBasic

Namespace Telerik.TabStripExamplesVB.Application.Navigation ' Høre til telerik tabs

    Partial Public Class DefaultVB
        Inherits XhtmlPage


        Dim DBConnection As OleDbConnection
        Dim DBAdapter As OleDbDataAdapter
        Dim DBDataSet As DataSet
        Dim DBDataView As DataView
        Dim SQLString As String
        ' Database Connection Åbning
        Sub Page_Load()
            DBConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("ConnectionStringDogs").ConnectionString)
            SQLString = "SELECT * FROM KennelEnggaardDogs"
            DBAdapter = New OleDbDataAdapter(SQLString, DBConnection)
            DBDataSet = New DataSet()
            DBAdapter.Fill(DBDataSet, "KennelEnggaardDogs")
            DBDataView = New DataView(DBDataSet.Tables("KennelEnggaardDogs"))
            RepeaterShowOwnDogs.DataSource = DBDataView
            RepeaterShowOwnDogs.DataBind()

        End Sub
        ' Database Connection Lukning
        Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
            DBConnection.Close()
            DBConnection = Nothing
            DBAdapter.Dispose()
            DBAdapter = Nothing

        End Sub
        ' Behandling af MenuTabs1
        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Dim tab As Tab = RadTabStrip1.FindTabByUrl(Request.Url.PathAndQuery)
            If Not (tab Is Nothing) Then
                tab.SelectParents()
            End If

            ' The code below is just for example purposes.
            Dim pageContentString As String
            If Request.QueryString("pageidentity") Is Nothing Then
                pageContentString = "home"
            Else
                pageContentString = Request.QueryString("pageidentity")
            End If
        End Sub
        ' Behandling af MenuTabs2
        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub 'OnInit
        '/ <summary>
        '/ Required method for Designer support - do not modify
        '/ the contents of this method with the code editor.
        '/ </summary>
        Private Sub InitializeComponent()
        End Sub 'InitializeComponent
    End Class
End Namespace