Get SiteID fra VB.class

Hej Eksperter,

Jeg er ved at lave en identifications klasse, da der kører flere domæner på systemet. Derfor er alle poster i databasen delt op med kolonnen SiteID.
------------------------------------------------------
identification.vb
------------------------------------------------------
Imports Microsoft.VisualBasic
Imports System.Data
Imports DataSetTableAdapters

Public Class Identification

    Protected ReadOnly Property GetSiteID()
        Get
            Dim SiteURL As String = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
            SiteURL = Replace(LCase(SiteURL), "wwww.", "")
            SiteURL = Replace(LCase(SiteURL), "www.", "")
            SiteURL = Replace(LCase(SiteURL), "ww.", "")
            SiteURL = Replace(LCase(SiteURL), "w.", "")

            Dim SitesAdapter As New SitesTableAdapter
            Return SitesAdapter.GetSiteIDBySiteURL(SiteURL).Columns.Item(SiteID)
        End Get
    End Property

    Public Shared SiteID As Integer = 1

End Class
------------------------------------------------------

Lige nu bruger hele sitet det statiske tal 1.

Hvordan får jeg værdien fra min GetSiteID funktion ned???

Alt andet skulle virke :-)

På forhånd tak...