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.
39 lines
1.7 KiB
39 lines
1.7 KiB
Imports System.Web.Configuration
|
|
Public Class NewPassword
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
|
|
End Sub
|
|
|
|
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
|
|
Dim dh As New clsDatahandling
|
|
Dim ds As New DataSet
|
|
Dim dm As New DataSet
|
|
If Me.RadCaptcha1.IsValid = False Then
|
|
Me.lblError.Text = "Eingegebener Sicherheitscode ist falsch."
|
|
Exit Sub
|
|
End If
|
|
ds = dh.Get_Tabledata("Select * from web_user where username='" + Me.txtBenutzername.Text + "' and email='" + Me.txtEmail.Text + "'", False, True)
|
|
If ds.Tables(0).Rows.Count < 1 Then
|
|
Me.lblError.Text = "Benutzername/Passwort bzw. Kombination ist ungültig. Bitte wiederholen Sie Ihre Eingaben."
|
|
Exit Sub
|
|
End If
|
|
dm = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=2", False, True)
|
|
Dim inhalt As String = dm.Tables(0).Rows(0).Item("Inhalt")
|
|
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
|
|
inhalt = inhalt.Replace("[Username]", ds.Tables(0).Rows(0).Item("Username"))
|
|
inhalt = inhalt.Replace("[Passwort]", ds.Tables(0).Rows(0).Item("Passwort"))
|
|
|
|
Dim csend As New clsSendMail
|
|
csend.SendMailMessage("", ds.Tables(0).Rows(0).Item("email").ToString, "", "", dm.Tables(0).Rows(0).Item("Betreff"), inhalt)
|
|
dh = Nothing
|
|
dm = Nothing
|
|
csend = Nothing
|
|
Response.Redirect("~/User/NewPasswordBestaetigung.aspx")
|
|
End Sub
|
|
|
|
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
|
|
|
|
End Sub
|
|
End Class |