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