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.
42 lines
2.0 KiB
42 lines
2.0 KiB
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 |