Şifre unutum mail adresine gönderme Yardım! - C#

Merhaba Arkadaşlar!

Üye şifresini yada kul. adını unuttuğunda mail adresi yazıp yolluyor. şifresini kul. adını mailinde görebilmseini istiyorum.

Mail adresini yazıp yoluyorum sorun yok ama bir türlü mail adresine mail gelmiyor çünkü aşağıdaki kodlar Cdonts bileşenlerine göre yapıldı hosting aldığım yerde Cdonts bileşenlerine desteği yokmuş, PERSITS komponentsi desteği kullanılmaktaymış.
Aşağıdaki kodları nasıl PERSITS komponentsi yapıcam. Yardım edin lütfen? Teşkkürederim.
----------------------------------

bag.asp Kodları;

sTitle="Şifre Hatırlatma Servisi"
sitename="www.xxx.com"
rootFolder="http://www.xxx.com"
tableWidth=500

'email notification variables

emailFromAddress="mail@xxx.net"
emailFromName= "xxx.com"
ASPMailRemoteHost="mail.xxx.net"
%>

-------------------------------------------------------------

sifremi_unutum.asp Kodları ;

<html>
<head>
<title>Sifre Hatirlatma Servisi</title>
<link rel=stylesheet type="text/css" href="stil.css">
<style type="text/css">

</style>
</head>

<div align="center">
<%
if request("submit" )<>"" then

Set Conn = Server.CreateObject("ADODB.Connection" )
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & Server.MapPath("../db/veri_urunler.mdb" )

Set RecSet = Server.CreateObject ("ADODB.RecordSet" )
RsSql = "SELECT * FROM uyeler WHERE email ='" & request("email" ) & "'"
RecSet.Open RsSql, Conn, 1, 3

If NOT RecSet.EOF Then

'send email
   dim b,email,ad
   email=request("email" )
   fullname=RecSet("ad" )
   b="<html><body>"
   b=b & "Merhaba " & RecSet("ad" ) & ",<br><br>"
   b=b & "Hesap bilgileriniz asagidadir:"
   b=b & "<br><br><b>Kullanici Adi: " & RecSet("kullanici" ) & "<br>Sifre (büyük/küçük harfe duyarli ): " & RecSet("sifre" ) & "</b><br><br>"
   b=b & "Iyi günler dileriz<br><br>Site Yöneticisi<br>" & sitename
   b=b & "</body></html>"

   function checkcomp(str )
   on error resume next
   checkcomp = false
   Err = 0
   dim checkobject
   set checkobject = Server.CreateObject(str )
   if 0 = Err then
      checkcomp = true
   end if
   set checkobject = nothing
   Err = 0
   end function

   Dim emailcomp(1 )

   emailcomp(0 ) = "SMTPsvg.Mailer"
   emailcomp(1 ) = "CDONTS.NewMail"

   if checkcomp(emailcomp(0 ) ) then
      emailcomponent="ASPMail"
   elseif checkcomp(emailcomp(1 ) ) then
      emailcomponent="CDONTS"
   else
      emailcomponent="CDONTS/ASPMail bilesenleri server 'da yüklü degil."
   response.write "<br><br><font color=red><b>ASPMail ve CDONTS bilesenleri serverda yüklü olmadigindan e-posta gönderilemiyor. Server yöneticisiyle temasa geçiniz.</b></font><br>"
   response.write "<center><br><br><br><a href='javascript:window.close( )'><b>Pencereyi Kapat</b></a></center>"
   end if

   'check if ASPMail
   if emailcomponent="ASPMail" then

      Set mail = Server.CreateObject("SMTPsvg.Mailer" )
      mail.ContentType = "text/html"
      mail.FromAddress = emailFromAddress
      mail.FromName = emailFromName
      mail.AddRecipient fullname, email
      mail.Subject = "Kullanici adiniz ve sifreniz"
      mail.BodyText = b
      mail.RemoteHost = ASPMailRemoteHost
      mail.SendMail
   response.write "<br><br><b>Kullanici adiniz ve sifreniz e-posta adresinize gönderilmistir.<br> Junk Mail lerinizi de kontrol etmeyi unutmayiniz. Kullanici adiniz ve sifrenizi içeren e-postayi almazsaniz, bizimle temasa geçiniz.</b><br>"
   response.write "<center><br><br><a href='javascript:window.close( )'><b>Pencereyi Kapat</b></a></center>"
      Set Mail = Nothing

   'check if CDONTS
   elseif emailcomponent="CDONTS" then

      Set myMail = CreateObject("CDONTS.NewMail" )
      myMail.From = emailFromName & "<" & emailFromAddress & ">"
      myMail.From = emailFromAddress
      myMail.To = email
      myMail.Subject = "Kullanici adiniz ve sifreniz"
      myMail.Body = b
      myMail.BodyFormat = 0
      myMail.MailFormat = 0
      myMail.Send
   response.write "<br><br><b>Kullanici adiniz ve sifreniz e-posta adresinize gönderilmistir.<br> Junk Mail lerinizi de kontrol etmeyi unutmayiniz. Kullanici adiniz ve sifrenizi içeren e-postayi almazsaniz, bizimle temasa geçiniz.</b><br>"
   response.write "<center><br><br><a href='javascript:window.close( )'><b>Pencereyi Kapat</b></a></center>"
      Set myMail = Nothing
   end if


      RecSet.close
      set RecSet = nothing
      Conn.close
      set Conn = nothing

   else

      response.write "<font color=red><b>E-posta adresi bulunamadi, lütfen tekrar giriniz.</b></font><br><br>"
%>
</div>
<center><br>
      <span class="style3">Lütfen sistemde kayitli olan e-posta adresinizi yaziniz.<br>
      Kullanici adiniz ve sifreniz bu adrese gönderilecektir. </span><font face="arial" size=-1><br>
      <br>
      </font>
      <form name="forgot" action="sifremi_unuttum.asp" method="post">
      <input type="text" size=25 name="email">
      <input type="submit" value="Gönder" name="submit2">
   </form>
</center>
<div align="center">
   <%end if
else%>
</div>
<center>
      <span class="style3"><br>
      Lütfen sistemde kayitli olan e-posta adresinizi yaziniz.<br>
      Kullanici adiniz ve sifreniz bu adrese gönderilecektir. </span><font face="arial" size=-1><br>
      <br></font>
      <form name="forgot" action="sifremi_unuttum.asp" method="post">
      <input type="text" size=25 name="email">
      <input type="submit" value="Gönder" name="submit">
   </form>
   </center>
<%end if%>