Imports System.IO Imports System.IO.Compression Imports System.Web.Configuration Public Class Firmendaten Inherits System.Web.UI.UserControl Private rand As New System.Random Dim Firmanr As Integer = 0 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then Try If Session.Item("RegisterAsCompany") = "True" Then Me.txtBemerkung.Visible = False Me.txtAusbildungBemerkung.Visible = False Me.txtAusbildungsstandort.Visible = False Me.txtPasswort1.Visible = True Me.txtPasswort2.Visible = True Me.txtUsername.Visible = True Me.btnRegister.Visible = True Me.btnSave.Visible = False Me.RadCaptcha1.Visible = True Me.RadCaptcha1.Visible = True Me.lblCaptcha.Visible = True Me.RadCaptcha1.Visible = True Me.txtUserEmail.Visible = True Me.RV6.Enabled = True Me.RV7.Enabled = True Me.RV9.Enabled = True Me.txtNameZ1.Focus() Me.Label1.Visible = True Me.Label2.Visible = True Me.Label4.Visible = False Me.Label5.Visible = False Me.Label6.Visible = False Me.Label7.Visible = False Me.Label8.Visible = False Me.txtNameZ1.SelectionOnFocus = Telerik.Web.UI.SelectionOnFocus.SelectAll Exit Sub Else If Session.Item("LogedIn") = "True" Then Firmanr = Session.Item("Firmanr") End If Me.txtNameZ1.Focus() Me.txtPasswort1.Visible = False Me.txtPasswort2.Visible = False Me.txtUsername.Visible = False Me.btnRegister.Visible = False Me.btnSave.Visible = True Me.RadCaptcha1.Visible = False Me.RadCaptcha1.Visible = False Me.lblCaptcha.Visible = False Me.RadCaptcha1.Visible = False Me.txtUserEmail.Visible = False Me.RV6.Enabled = False Me.RV7.Enabled = False Me.RV9.Enabled = False Me.Label1.Visible = False Me.Label2.Visible = False End If Dim fdaten As New DataTable Dim dh As New clsDatahandling fdaten = dh.Get_Firma(Firmanr) Dim dr As DataRow = fdaten.Rows(0) Me.txtNameZ1.Text = dr.Item("NameZ1").ToString Me.txtNameZ2.Text = dr.Item("NameZ2").ToString Me.txtAnredea.Text = dr.Item("Anrede").ToString Me.txtAnredea.SelectedValue = dr.Item("Anrede").ToString Me.txtname.Text = dr.Item("Name").ToString Me.txtVorname.Text = dr.Item("Vorname").ToString Me.txtStrasse.Text = dr.Item("Strasse").ToString Me.txtPLZ.Text = dr.Item("plz").ToString Me.txtOrt.Text = dr.Item("Ort").ToString Me.txtTelefon.Text = dr.Item("tel").ToString Me.txtNatel.Text = dr.Item("Natel").ToString Me.txtTelefax.Text = dr.Item("Fax").ToString Me.txtEmail.Text = dr.Item("email").ToString Me.txtInternet.Text = dr.Item("web").ToString Me.txtBemerkung.Text = dr.Item("Bemerkung").ToString Me.txtAusbildungBemerkung.Text = dr.Item("Ausbildungsbemerkung").ToString Me.txtAusbildungsstandort.Text = dr.Item("Ausbildungsstandort").ToString Catch End Try End If End Sub Protected Sub btnRegister_Click(sender As Object, e As EventArgs) Handles btnRegister.Click If Not Page.IsValid Then Exit Sub Dim dh As New clsDatahandling Dim dbkey As Integer = dh.Get_NewDBKey("Firma") If dh.Insert_Firma(dbkey) = True Then dh.UpdateTable("Firma", "NameZ1", Me.txtNameZ1.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "NameZ2", Me.txtNameZ2.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Strasse", Me.txtStrasse.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "plz", Me.txtPLZ.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "ort", Me.txtOrt.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "tel", Me.txtTelefon.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Natel", Me.txtNatel.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "fax", Me.txtTelefax.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "web", Me.txtInternet.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "email", Me.txtEmail.Text, True, "Firmanr", dbkey) ' dh.UpdateTable("Firma", "anrede", Me.txtAnrede.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "anrede", Me.txtAnredea.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "name", Me.txtname.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "vorname", Me.txtVorname.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "mutiert_am", Now, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Bemerkung", "", True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Ausbildungsstandort", "", True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Ausbildungsbemerkung", "", True, "Firmanr", dbkey) End If dh.Insert_Web_User(Me.txtUsername.Text, Me.txtPasswort1.Text, 2, dbkey, 0) Dim userkey As Integer = dh.Get_LastKey("Web_User", "Eintragnr") - 1 dh.Insert_Ansprechpartner(dbkey, Me.txtname.Text, Me.txtVorname.Text, Me.txtTelefon.Text, Me.txtEmail.Text, Me.txtAnredea.SelectedValue) Dim KeyGen As RandomKeyGenerator Dim NumKeys As Integer Dim RandomKey As String NumKeys = 1 KeyGen = New RandomKeyGenerator KeyGen.KeyLetters = "abcdefghijklmnopqrstuvwxyz" KeyGen.KeyNumbers = "0123456789" KeyGen.KeyChars = 46 RandomKey = KeyGen.Generate() dh.UpdateTable("Web_User", "VerifyString", RandomKey, True, "Eintragnr", userkey) dh.UpdateTable("Web_User", "EMail", Me.txtUserEmail.Text, True, "Eintragnr", userkey) Dim mds As New DataSet mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True) Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt") inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite")) inhalt = inhalt.Replace("[RegisterLink]", WebConfigurationManager.AppSettings("WebSite") + "/user/" + "RegisterBestaetigung.aspx?fnkt=Aktivierung&Code=" + RandomKey) Dim mailer As New clsSendMail mailer.SendMailMessage("", Me.txtUserEmail.Text, "", "", mds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt) Response.Redirect("~/user/registerbestaetigung.aspx?fnkt=Bestaetigung") End Sub Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click If Page.IsValid Then Dim dbkey As Integer = Session.Item("Firmanr") Dim dh As New clsDatahandling dh.UpdateTable("Firma", "NameZ1", Me.txtNameZ1.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "NameZ2", Me.txtNameZ2.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Strasse", Me.txtStrasse.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "plz", Me.txtPLZ.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "ort", Me.txtOrt.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "tel", Me.txtTelefon.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Natel", Me.txtNatel.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "fax", Me.txtTelefax.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "web", Me.txtInternet.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "email", Me.txtEmail.Text, True, "Firmanr", dbkey) 'dh.UpdateTable("Firma", "anrede", Me.txtAnrede.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "anrede", Me.txtAnredea.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "name", Me.txtname.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "vorname", Me.txtVorname.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "mutiert_am", Now, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Bemerkung", Me.txtBemerkung.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Ausbildungsstandort", Me.txtAusbildungsstandort.Text, True, "Firmanr", dbkey) dh.UpdateTable("Firma", "Ausbildungsbemerkung", Me.txtAusbildungBemerkung.Text, True, "Firmanr", dbkey) End If Response.Redirect("~/firmen/Firmendaten1.aspx?Tab=2") End Sub Public Function Check_Userid(source As Object, args As ServerValidateEventArgs) Dim dh As New clsDatahandling Dim ds As New DataSet ds = dh.Get_Tabledata("Select * from web_user where Username='" + Me.txtUsername.Text + "'", False, True) If ds.Tables(0).Rows.Count > 0 Then args.IsValid = False Else args.IsValid = True End If End Function Public Function Check_Captcha(source As Object, args As ServerValidateEventArgs) If Me.RadCaptcha1.IsValid = False Then args.IsValid = False Else args.IsValid = True End If End Function Protected Sub RadAjaxManager1_AjaxRequest(sender As Object, e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest End Sub End Class