Imports System.IO
Imports System.IO.Compression
Imports System.Web.Configuration
Public Class LehrerRegister
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.txtAnredea.Focus()
        Me.Form.DefaultButton = Me.btnRegister.UniqueID
    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
        If dh.Insert_Lehrer(dbkey) = True Then
            dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", dbkey)
            dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", dbkey)
            dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", dbkey)
            dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue, False, "lehrernr", dbkey)
            dh.UpdateTable("web_lehrer", "natel", Me.txtNatel.Text, True, "lehrernr", dbkey)
            dh.UpdateTable("web_lehrer", "Telefon", Me.txtTelefon.Text, True, "lehrernr", dbkey)
            dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", dbkey)
            'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", dbkey)
        End If

        dh.Insert_Web_User(Me.txtUserName.Text, Me.txtPasswort1.Text, 3, 0, dbkey)
        Dim userkey As Integer = dh.Get_LastKey("Web_User", "Eintragnr") - 1

        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.txtEMail.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.txtEMail.Text, "", "", mds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
        Response.Redirect("~/user/registerbestaetigung.aspx?fnkt=Bestaetigung")


    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

End Class