Imports System.Web.Configuration
Public Class Berufsanfrage1
    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 RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Dim mds As New DataSet
        Dim dh As New clsDatahandling

        mds = dh.Get_Tabledata("Select * from beruf where aktiv=1 and bezeichnung='" + Me.RadTextBox1.Text + "'", False, True)
        If mds.Tables(0).Rows.Count > 0 Then
            Dim image1 As String = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
            RadWindowManager1.RadAlert("Der eingegebene Beruf ist bereits vorhanden Bitte überprüfen Sie Ihre Eingaben.", 330, 100, "Fehler", "alertCallBackFnError", image1)
            Exit Sub
        End If
        mds.Tables.Clear()
        mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=3", False, True)
        Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
        Dim betreff As String = mds.Tables(0).Rows(0).Item("Betreff")
        inhalt = inhalt.Replace("[Beruf]", Me.RadTextBox1.Text)

        mds.Tables.Clear()
        mds = dh.Get_Tabledata("Select * from optionen where optionnr=6", False, True)
        Dim Email As String = mds.Tables(0).Rows(0).Item("Inhalt")

        mds.Tables.Clear()
        Dim firma As New DataTable
        firma = dh.Get_Firma(Session("Firmanr"))

        inhalt = inhalt.Replace("[Firma]", firma.Rows(0).Item("NameZ1") + " " + firma.Rows(0).Item("NameZ2"))
        inhalt = inhalt.Replace("[Strasse]", firma.Rows(0).Item("Strasse"))
        inhalt = inhalt.Replace("[PLZ]", firma.Rows(0).Item("Plz"))
        inhalt = inhalt.Replace("[Ort]", firma.Rows(0).Item("Ort"))
        inhalt = inhalt.Replace("[Telefon]", firma.Rows(0).Item("Tel"))
        inhalt = inhalt.Replace("[EMail]", firma.Rows(0).Item("EMail"))

        Dim mailer As New clsSendMail
        mailer.SendMailMessage("", Email, "", "", betreff, inhalt)
        Dim image As String = WebConfigurationManager.AppSettings("Imagepath") + "info1.png"
        RadWindowManager1.RadAlert("Ihre Anfrage wurde erfolgreich übermittelt.", 330, 100, "Bestätigung", "alertCallBackFn", image)

    End Sub

    Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
        Response.Redirect("~/Firmen/Firmendaten1.aspx?Tab=3")
    End Sub
End Class