سلام

من قصد دارم که User بتونه Theme سایت رو تغییر بده. برای این کار من یه DropDownList در نظر گرفتم که نسبت به Item انتخاب شده Theme کل سایت تغییر میکنه.

Protected Sub btnChangeTheme_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click



        Me.Session("Theme") = Me.ddlTheme.SelectedItem.Text

        Me.Response.Redirect(Me.Request.Url.AbsoluteUri)

    End Sub

و برای اینکه این تغییرات اعمال بشن یه کلاس بصورت زیر نوشتم.

Imports System



Public Class ThemeManager

    Implements IHttpModule



    Public Sub Dispose() Implements System.Web.IHttpModule.Dispose

    End Sub



    Public Sub Init(ByVal context As System.Web.HttpApplication) Implements System.Web.IHttpModule.Init



        AddHandler context.PreRequestHandlerExecute, New EventHandler(AddressOf ChangeTheme)

    End Sub



    Private Sub ChangeTheme(ByVal sender As Object, ByVal e As EventArgs)



        Dim pg As Page = TryCast(HttpContext.Current.Handler, Page)



        If pg IsNot Nothing Then



            'Dim pf As ProfileCommon = DirectCast(HttpContext.Current.Profile, ProfileCommon)

            'pg.Theme = pf.Theme

            'IO.File.ReadAllText(HttpContext.Current.Server.Ma  pPath("Theme.dat"))

            pg.Theme = HttpContext.Current.Session("Theme")

        End If

    End Sub

End Class


حالا مسئله اینجاست که چرا Theme تغییر نمی کنه؟! آیا روش کار درسته؟ لطفا" منو راهنمایی کنید.