Initial Commit Update Telerik

LPWeb20/UserControls/RegisterActivation.ascx.vb

@@ -0,0 +1,42 @@
+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