Public Class Firmenaktualisierung
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dh As New clsDatahandling
        Me.Label2.Text = dh.Get_Option(15)
    End Sub

    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Dim dh As New clsDatahandling
        dh.Firma_aktivieren(Session.Item("Firmanr"), Session.Item("Userid"))
        Response.Redirect("~/firmen/firmendaten1.aspx")
    End Sub
End Class