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 Löschung durch Anhacken des Kästchens unterhalb des Löschknopfes."
            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
    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