Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Web Imports System.Net.Mail Partial Class Admin_forget_password Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Session("AdminID") Is Nothing Then Response.Redirect("AdminLogin.aspx?sesn=expire") Exit Sub End If If Not IsPostBack Then If Session("AdminID") = Nothing Then Response.Redirect("AdminLogin.aspx") End If fillgrid() End If Label1.Visible = False End Sub Public Sub fillgrid() Dim dt As DataTable dt = ReturnDataTable("SELECT distinct forgot_password.forgot_Kid, convert(nvarchar(25),forgot_password.forgot_date,100) as forgot_date, forgot_password.forgot_flag, AdminUser.AdminUser_Password, forgot_password.forgot_emailid FROM forgot_password INNER JOIN AdminUser ON forgot_password.forgot_emailid = AdminUser.AdminUser_Name WHERE (forgot_password.forgot_flag = N'0')") gvForgetPass.DataSource = dt gvForgetPass.DataBind() Dim i As Integer For i = 0 To gvForgetPass.Rows.Count - 1 gvForgetPass.Rows(i).Cells(2).Text = Decrypt(gvForgetPass.Rows(i).Cells(2).Text) CType(gvForgetPass.Rows(i).Cells(4).FindControl("lnkDelete"), LinkButton).Attributes.Add("onclick", "return confirm('Are you sure you want to delete?');") Next End Sub Protected Sub lnkDetail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Try Dim lnk As LinkButton lnk = sender Dim kid As String kid = lnk.CommandArgument.ToString Dim username As String username = ReturnValue("Select forgot_emailid from forgot_password where forgot_kid ='" & kid & "'") Dim password As String password = ReturnValue("Select AdminUser_Password from AdminUser where AdminUser_Name = '" & username & "'") password = Decrypt(password) Dim StrMail As String = "" StrMail = "" StrMail = StrMail & "" & "" & "" StrMail = StrMail & "Contact Us" & "

" StrMail = StrMail & "" StrMail = StrMail & "" & "" StrMail = StrMail & "" StrMail = StrMail & "
" StrMail = StrMail & "
Subject: Password Confirmation

" StrMail = StrMail & "Dear, " + username & ",

Greetings form ATCOMAART
Welcome to our online services.
" StrMail = StrMail & "
As per the requset your account login details are as given below :
" StrMail = StrMail & "
User ID:         " & username & "
Password:      " & password & "
" StrMail = StrMail & "
We welcome you to the ATCOMAART family. We hope you enjoy your experience here.
" StrMail = StrMail & "
Click on the below link for login in your account.
" StrMail = StrMail & "
www.atcomaart.com/suppliers/home.aspx
" StrMail = StrMail & "
Thanks & Regards
ATCOMAART TEAM!
www.atcomaart.com
contact@atcomaart.com

" 'Dim MyMailMessage As New MailMessage() ''From requires an instance of the MailAddress type 'MyMailMessage.From = New MailAddress("contact@atcomaart.com", "Atcomaart.") ''To is a collection of MailAddress types 'MyMailMessage.To.Add(username.ToString) 'MyMailMessage.CC.Add("contact@atcomaart.com") 'MyMailMessage.Subject = "Your Password Confirmation..." 'MyMailMessage.Body = StrMail 'MyMailMessage.IsBodyHtml = True 'MyMailMessage.Priority = MailPriority.High 'Dim smtpclient As New SmtpClient("smtp.rediffmailpro.com") 'smtpclient.Credentials = New Net.NetworkCredential("contact@atcomaart.com", "vikram") 'smtpclient.Send(MyMailMessage) MailSender.SendEmailWithBCC(username.ToString, "Your Password Confirmation...", StrMail, Mail.MailFormat.Html, "", "operations.atcomaart@atco.in") ExecuteQuery("update forgot_password set forgot_flag='1' where forgot_kid ='" & lnk.CommandArgument.ToString & "'") fillgrid() showmessage("Password sent successfully.!", Label1) Catch ex As Exception End Try End Sub Protected Sub gvForgetPass_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvForgetPass.PageIndexChanged End Sub Protected Sub gvForgetPass_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvForgetPass.PageIndexChanging Try gvForgetPass.PageIndex = e.NewPageIndex fillgrid() Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") End Try End Sub Protected Sub lnkDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim lnk As LinkButton lnk = sender ExecuteQuery("Delete from forgot_password where forgot_kid ='" & lnk.CommandArgument.ToString & "'") fillgrid() End Sub End Class