Imports Telerik.Web.UI
Public Class StyleManager
    Inherits System.Web.UI.Page


    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin") = Me.RadComboBox1.SelectedValue
        Session("Style") = Me.RadComboBox1.SelectedValue
        Dim dh As New clsDatahandling
        dh.UpdateTable("Optionen", "Inhalt", Me.RadComboBox1.SelectedValue, True, "Optionnr", 22)

    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then Me.RadComboBox1.SelectedValue = System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin")
    End Sub

    Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs)


    End Sub
End Class