14 lines
547 B
VB.net
14 lines
547 B
VB.net
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 |