You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
799 B
20 lines
799 B
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
|
|
|
|
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
|
|
Response.Redirect("~/administration/mailclient.aspx?Firmen=all")
|
|
End Sub
|
|
End Class |