Initial Commit Update Telerik

LPWeb20/Firmen/SIK/Firmenaktualisierung.aspx.vb

@@ -0,0 +1,14 @@
+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