Imports Telerik.Web.UI
Imports Telerik.Web.UI.Upload
Imports System.Web.Configuration
Public Class Zuteilung
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then Me.RadioButtonList1.SelectedValue = 0
    End Sub

    Protected Sub buttonSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonSubmit.Click
        Dim dh As New clsDatahandling
        dh.Zuteilen(Me.RadioButtonList1.SelectedValue)
        Show_Message(2, "Zuteilung erfolgreich durchgeführt.")
    End Sub

    Protected Sub Show_Message(ByVal type As Integer, ByVal meldung As String)
        Dim image1 As String
        Select Case type
            Case 1
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
                RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)
            Case 2
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
                RadWindowManager1.RadAlert(meldung, 330, 100, "Bestätigung", "alertCallBackFnError", image1)
        End Select


    End Sub


End Class