كيف يتم عمل نموذج ل ( التذكير بكلمة المرور ) ؟؟

السلام عليكم ورحمة الله وبركاته

طبعا لن أتحدث عن كيفية عمل النموذج الخاص بكتابة البريد الالكتروني الخاص بالعضو الذي نسي كلمة المرور الخاصة به ، فهو نموذج به تكست بوكس لكتابة البريد الالكتروني وزر لارسال كلمة المرور الخاصة بالحساب صاحب البريد الالكتروني .. وعند الضغط على الزر يتم تنفيذ مايلي :

	Sub ForgotPWClick(ByVal Sender As Object, ByVal E As EventArgs)

		Dim MySqlConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings.Item("forum").ToString())
		Dim Adpter As SqlDataAdapter = New SqlDataAdapter
		Dim ForumDS As DataSet = New DataSet
		Dim Row As DataRow
		Dim SelectStatement As String
		Dim UserNm As String
		Dim Password As String

		SelectStatement = "Select UserName, Password From Users Where Email=@Eml"
		Adpter.SelectCommand = New SqlCommand(SelectStatement, MySqlConnection)

		Adpter.SelectCommand.Parameters.Add(New SqlParameter("@Eml", SqlDbType.NVarChar, 50))
		Adpter.SelectCommand.Parameters("@Eml").Value = Email.Text

		Adpter.Fill(ForumDS, "Users")
		If ForumDS.Tables("Users").Rows.Count > 0 Then
			Row = ForumDS.Tables("Users").Rows(0)
			UserNm = Row.Item("UserName")
			Password = Row.Item("Password")
			Dim EMailTo As String = Email.Text.ToString.Trim
			Dim EMailFrom As String = "userinfo@amrammar.net"
			Dim EMailSubject As String = "تذكير بكلمة المرور في منتديات عمرو عمار . نت"
			Dim EMailBody As String = _
			  "<p dir='rtl'>العضو العزيز " & UserNm & "<br /><br />" & _
			   "السلام عليكم ورحمة الله وبركاته ،،<br /><br />" & _
			   "لقد تم إرسال هذه الرسالة بناء على طلبك بإرسال كلمة المرور الخاصة بحسابك في منتديات عمرو عمار . نت " & _
				& "<br /><br />" & _
			   "الإسم : " & UserNm & "<br />كلمة المرور : " & Password & "<br /><br />" & _
			   "نرجو أن تحوز خدماتنا على رضاكم ونتمنى أن تقوموا بزيارتنا بانتظام." & _
			   "<br /><br />مع أطيب تحياتنا ،،<br /><br />فريق عمل منتديات عمرو عمار . نت" & "</p>"
			Dim Message As MailMessage = New MailMessage(EMailFrom, EMailTo, EMailSubject, EMailBody)
			Dim MailClient As SmtpClient = New SmtpClient
			MailClient.Host = "mail.amrammar.net"
			MailClient.UseDefaultCredentials = True
			Message.IsBodyHtml = True
			Try
				MailClient.Send(Message)
				Message.Dispose()
				Session("sysmsg") = "تم إرسال رسالة على بريدك الإلكتروني تحتوي على كلمة المرور الخاصة بك"
				Response.Redirect("sysmsg.aspx")
			Catch Exp As SmtpException
				MessageLbl.Text = "خطأ: لم يتم إرسال رسالة التذكير بكلمة المرور, برجاء إعادة المحاولة<br /><br />" & Exp.Message
			End Try
			Message.Dispose()
		Else
			MessageLbl.Text = "نعتذر لعدم وجود حساب لهذا البريد الالكتروني، برجاء إعادة المحاولة"
		End If
   End Sub

أرجو أن أكون قد أفدتك .. ونسألك الدعاء ،،

سلمك رب يالغالي ..

والله ما قصرت ...

الله يجلها في ميزان حسناتكـ ان شاء الله ويوفقك ويحقق لك الي في بالك ان شاء الله ...

معليش يالغالي لو تعبتك معاي لو يكون الكود بـ C# لو كود ارسال الرسالة إلى الايميل( عنوان البريد المستقبل ، العنوان ، نص الرسالة) والباقي انا اتدبرها ان شاء الله ..

وفقك الله لكل خير يالغالي والمعذرة لو اني غلبتك معاي في أكثر من موضوع ..

الله يوفقك ان شاء الله ..

دمت في حفظ الله ورعايته

للأسف لا أعرف لغة سي شارب .. وأترك هذه المهمة لخبرائها من المنتدى .. وأهلا بك في منتدانا المتواضع

تسلم يالغالي ما قصرت والله ..

تعبتك كثير معاي ..

كفيت ووفيت يالغالي ..

بانتظار الأخوان ..