Imports System.IO
Imports System.IO.Compression
Imports System.Web.Configuration
Public Class RegisterActivation
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.QueryString("Code") <> "" Then
            Dim dh As New clsDatahandling
            If dh.User_Activation(Request.QueryString("code")) = True Then
                Me.Panel1.Visible = True
                Me.Panel2.Visible = False
            Else
                Me.Panel1.Visible = False
                Me.Panel2.Visible = True
            End If
        End If
    End Sub

    Protected Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click
        If Page.IsValid Then
            Dim dh As New clsDatahandling
            Dim ds As New DataSet
            ds = dh.Get_Tabledata("Select top 1 * from web_user where email = '" + Me.txtemail.Text + "'", False, True)
            If ds.Tables(0).Rows.Count < 1 Then
                Me.lblMessage.Text = "E-Mail-Adresse ist unbekannt. Bitte wiederholen Sie den Vorgang."
                Exit Sub
            End If
            Dim randomkey As String
            randomkey = ds.Tables(0).Rows(0).Item("VerifyString")
            ds.Tables.Clear()
            ds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True)
            Dim inhalt As String = ds.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, "", "", ds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
            Me.lblMessage.Text = "Ein E-Mail mit den Aktivierungsinformationen wurde Ihnen soben zugestellt."
        End If
    End Sub
End Class