Şifremi unuttum maile yolla

merhaba arkadaşlar benim bi ricam var..
arkadaşlar ben sitemde üyelerimin bilgilerini ve unutulan şifrelerini maillerine yollamak istiyorum bunun için sizlerden yardım istiyorum bu ii nasılçözebilirim bi kaç sitede örnek vardı denilenleri harfiyen yerine getirmeme rağmen işimi halledemedim yardımcı olabilecek arkadaşlara teşekkr ederim şimdiden... kolay gelsin

öncelikle bir form oluşturun. Kullanıcı adını yani rumuzunu isteyin ben formunuzu yapmış kabul ederek gerekle kodları yazıyorum

<%
rumuz= Trim (Request.Form("rumuz"))
Set send001= Sur.Execute("Select * From uyeler where rumuz='"&rumuz&"' ;")

if send001.eof and send001.bof then
Response.Redirect "hata.asp" ' Eğer böyle bir kullanıcı yok ise hata sayfası yaparsın
end if
%>
<%
On Error Resume Next
email=send001("email")
zaman=Now()
Message="<font face=tahoma>Sayın <b>"&send001("rumuz")&" ;</b><br><br><b>xxx.com</b> üyelik bilgileriniz aşağıda belirtilmiştir.<br><br><b>Kullanıcı adınız :</b> "&send001("rumuz")&" <br><b>Şifreniz :</b> "&send001("sifre")&" <br><br"
%>
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.xxxx.com" ' kendi mail bilgileri gireceksin
Mail.Username = "xxx@xxxx.com" ' kendi mail bilgileri gireceksin
Mail.Password = "123456" ' kendi mail şifren
Mail.From = "xxx@xxxx.com" ' kendi mail bilgileri gireceksin
Mail.FromName = "xxxxx.com" ' kendi mail bilgileri gireceksin
Mail.AddAddress email
Mail.AddReplyTo "xxx@xxxx.com" ' kendi mail bilgileri gireceksin
Mail.Subject = "Şifre Talebiniz" ' kendi mail bilgileri gireceksin
Mail.IsHTML = True
Mail.Body = Message
Mail.Send
If ERR Then
        Response.Write err.Description & "<br>Hata"
Else
        Response.Write "<tr><td><font face=tahoma size=2><center><br>Şifreniz <b>" & send001("email") & "</b> adresine İletilmiştir.</font></tr></td>"
End If
%>
kolay gelsin