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 DropDownListAdapter
        Inherits System.Web.UI.WebControls.Adapters.WebControlAdapter

        Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
            RenderBeginTag(writer)
            RenderContents(writer)
            RenderEndTag(writer)
        End Sub

        Protected Overrides Sub RenderContents(ByVal writer As System.Web.UI.HtmlTextWriter)
            If TypeOf Control Is DropDownList Then
                Dim ddl As DropDownList = CType(Control, DropDownList)
                For Each li As ListItem In ddl.Items
                    writer.WriteBeginTag("option")
                    If li.Selected Then writer.WriteAttribute("selected", "selected")
                    writer.WriteAttribute("value", li.Value)

                    'Add style if necessary
                    writer.WriteAttribute("style", li.Attributes("style"))

                    writer.Write(">")
                    HttpUtility.HtmlEncode(GetTerm(li.Text, li.Value, HttpContext.Current.Session("Culture")), writer)
                    writer.WriteEndTag("option")
                    writer.WriteLine()

                Next
            Else
                MyBase.Render(writer)
            End If
        End Sub

        Private Function GetTerm(ByVal Text As String, ByVal Value 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", Value)
                .AddWithValue("@Culture", Culture)
            End With
            Dim _result As String
            sconn.Open()
            _result = scomm.ExecuteScalar
            sconn.Close()
            Return IIf(String.IsNullOrEmpty(_result), Text, _result)
        End Function
    End Class
End Namespace

Protected Overrides Sub RenderContents(ByVal writer As System.Web.UI.HtmlTextWriter)
    If TypeOf Control Is DropDownList Then
        Dim ddl As DropDownList = CType(Control, DropDownList)
        For Each li As ListItem In ddl.Items
            writer.WriteBeginTag("option")
            If li.Selected Then writer.WriteAttribute("selected", "selected")
            writer.WriteAttribute("value", li.Value)

            'Add style if necessary
            writer.WriteAttribute("style", li.Attributes("style"))

            writer.Write(">")
            HttpUtility.HtmlEncode(GetTerm(li.Text, li.Value, HttpContext.Current.Session("Culture")), writer)
            writer.WriteEndTag("option")
            writer.WriteLine()
            If Me.Page IsNot Nothing Then
                Page.ClientScript.RegisterForEventValidation(ddl.UniqueID, li.Value)
            End If
        Next
        If Me.Page IsNot Nothing Then
            Page.ClientScript.RegisterForEventValidation(ddl.UniqueID)
        End If
    Else
        MyBase.Render(writer)
    End If
End Sub