Public Class Firmen
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnNeueFirma_Click(sender As Object, e As EventArgs) Handles btnNeueFirma.Click
        Dim dh As New clsDatahandling
        Dim dbkey As Integer = dh.Get_NewDBKey("Firma")
        If dh.Insert_Firma(dbkey) = True Then
            dh.UpdateTable("Firma", "NameZ1", "*** Neue Firma ***", True, "Firmanr", dbkey)
            Response.Redirect("~/firmen/firmendaten1.aspx?Firmanr=" + dbkey.ToString)
        End If
    End Sub
End Class