Public Class DelData
    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 btnZusammenfassung_Click(sender As Object, e As EventArgs) Handles btnZusammenfassung.Click
        If cbboxDel.Checked = False Then
            Me.Label1.Text = "Bestätigen Sie bitte die Mutation durch Anhacken des Kästchens unterhalb des Knopfes."
            Exit Sub
        End If
        Dim dh As New clsDatahandling
        If Me.cbboxFirmen.Checked = True Then
            dh.Delete_Firmen()
        End If
        If Me.cbboxAnsprechpartner.Checked = True Then
            dh.Delete_Ansprechpartner()
        End If
        If Me.cbboxAngebot.Checked = True Then
            dh.Delete_Angebot()
        End If
        If Me.cbboxKlassen.Checked = True Then
            dh.Delete_Klasse()
        End If
        If Me.cbboxLehrer.Checked = True Then
            dh.Delete_Lehrer()
        End If
        If Me.cbboxSchueler.Checked = True Then
            dh.Delete_Schueler()
        End If
        If Me.cbboxInaktieBerufsbilder.Checked = True Then
            dh.Inaktive_Berufsangebote_loeschen(Session.Item("Userid"))
        End If
        If Me.cbboxFirmenNotAktuell.Checked = True Then
            dh.Firmen_Inaktivieren(Session.Item("Userid"))
        End If
        If Me.cbboxZuteilungenLoeschen.Checked = True Then
            dh.Delete_Zuteilung()
        End If

        Me.cbboxDel.Checked = False
    End Sub

 
    Protected Sub cbboxFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles cbboxFirmen.CheckedChanged
        Me.cbboxAnsprechpartner.Checked = True
        Me.cbboxAngebot.Checked = True
    End Sub
End Class