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