<browsers>
    <browser refID="Default">
        <controlAdapters>
            <adapter controlType="System.Web.UI.WebControls.Label"
                     adapterType="Arcencus.LabelAdapter" />
        </controlAdapters>
    </browser>

    <browser id="W3C_Validator" parentID="default">
        <identification>
            <userAgent match="^W3C_Validator" />
        </identification>
        <capabilities>
            <capability name="browser"              value="W3C Validator" />
            <capability name="ecmaScriptVersion"    value="1.2" />
            <capability name="javascript"           value="true" />
            <capability name="supportsCss"          value="true" />
            <capability name="supportsCallback"     value="true" />
            <capability name="tables"               value="true" />
            <capability name="tagWriter"            value="System.Web.UI.HtmlTextWriter" />
            <capability name="w3cdomversion"        value="1.0" />
        </capabilities>
    </browser>
</browsers>

Imports System
Imports System.Data
Imports System.Configuration
Imports System.IO
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Namespace Arcencus
    Public Class LabelAdapter
        Inherits System.Web.UI.Adapters.ControlAdapter

        Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
            If TypeOf Control Is Label Then
                Dim lb As Label = CType(Control, Label)
                If (Not String.IsNullOrEmpty(lb.Text)) Then
                    Dim term As String = GetTerm(lb.Text, HttpContext.Current.Session("Culture"))
                    If String.IsNullOrEmpty(term) Then
                        MyBase.Render(writer)
                    Else
                        writer.Write(term)
                    End If
                End If
            Else
                MyBase.Render(writer)
            End If
        End Sub

        Private Function GetTerm(ByVal Text As String, ByVal Culture As String) As String
            Dim sconn As New SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("GlobalizationConnectionString").ConnectionString)
            Dim scomm As New SqlClient.SqlCommand("SELECT TOP 1 Text FROM Terms WHERE Value = @Value AND Culture = @Culture", sconn)
            With scomm.Parameters
                .AddWithValue("@Value", Text)
                .AddWithValue("@Culture", Culture)
            End With
            Dim _result As String
            sconn.Open()
            _result = scomm.ExecuteScalar
            sconn.Close()
            Return _result
        End Function
    End Class
End Namespace

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged, DropDownList1.Load
        Session("Culture") = DropDownList1.SelectedValue
    End Sub
End Class