Private Sub SelectedIndexChanged(ByVal sender As Object, ByVal selectedLanguage As String) Try Language.SwitchLanguage(selectedLanguage, Response.Cookies) Response.Redirect(Request.Path, False) Catch Ex As System.Exception Me.LogError(Ex) End Try End Sub Public Shared Sub SwitchLanguage(ByVal inLanguageID As String, ByRef inCookies As System.Web.HttpCookieCollection) Dim lLanguage As Language lLanguage = GetLanguage(inLanguageID) If (lLanguage IsNot Nothing) Then inCookies.Get(cLang)(cID) = inLanguageID inCookies.Get(cLang)(cCulture) = lLanguage.Name inCookies.Get(cLang).Expires = DateTime.Now.AddDays(365) End If End Sub