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.
50 lines
2.4 KiB
50 lines
2.4 KiB
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 |