emlak 2000 sistemi uyelik aktivasyon link gonderimini iptal edebilirmiyiz

uye olunuyo ama aktivasyon admın onaylı aktivasyon linkini uye olduktan sonra maile diğilde direk sayfada gosterme imkanı yokmu



<link href="stil.css" rel="stylesheet" type="text/css" />
<!--#include file="baglanti.asp"-->
<!--#include file="koru.asp"-->
 

<%
 ad = koru(Request.Form("ad"))
 kullanici = koru(Request.Form("kullanici"))
 sifre = koru(Request.Form("sifre"))
 eposta = koru(Request.Form("eposta"))
 adres = koru(Request.Form("adres"))
 telefon_kodu = koru(Request.Form("telefon_kodu"))
 telefon_numarasi = koru(Request.Form("telefon_numarasi"))
 telefon = telefon_kodu & telefon_numarasi
 kayit_tarihi = Date
 et = inStr(eposta, "@")
 nokta = inStr(eposta, ".")
%>
 
 
 
 
 
 
<%
 if isNumeric(telefon) = False or len(telefon) <> 10 or len(kullanici) < 6 or len(sifre) < 6 or et = 0 or nokta = 0 Then
 adres = Request.ServerVariables("HTTP_REFERER")
%>
 
<%
 if ad <>"" and kullanici <>"" and sifre <>"" and eposta <>"" and adres <>"" and telefon_kodu <>"" and telefon_numarasi <> "" Then
 Randomize
 aktivizasyon_id = Int(Rnd*899999999999)+100000000000
 
 strSQL = "SELECT * FROM uyeler WHERE email='"+eposta+"' or kullanici_adi='"&kullanici&"'"
 Set ks1 = baglanti.Execute(strSQL)
  if ks1.EOF Then
  Session.LCID = 1033
  strSQL = "INSERT INTO uyeler(aktivizasyon_id, ad_soyad, kullanici_adi, sifre, email, adres, telefon, kayit_tarihi) values ('"&aktivizasyon_id&"', '"&ad&"', '"&kullanici&"', '"&sifre&"', '"&eposta&"', '"&adres&"', '"&telefon&"', #"& kayit_tarihi &"#)"
  baglanti.Execute(strSQL)
  Session.LCID = 1055
  ks1.Close
  Set ks1 = Nothing
  adres="default.asp"
  Set aktivizasyon = Server.CreateObject("CDONTS.NewMail")
  aktivizasyon.From = "info@emreemlak.info"
  aktivizasyon.To = eposta
  aktivizasyon.Subject = "emreemlak  Aktivizasyon Link"
  mail = "Bu mail emreemlak  adresinden size sistem tarafindan gönderilmis olup üyelik aktivizasyonu içindir.<br />"
  mail = mail & "Eger siz '"+ad+"' degilseniz lütfen bu maili dikkate almayiniz!<br />"
  mail = mail & "Sayin '"+ad+"' aktivizasyon linkiniz asagida belirtilmistir. Sistemimize üye oldugunuz için tesekkür ederiz."
  mail = mail & "<br /><br />"
  mail = mail & "<a href='http://www.emreemlak.info/aktivizasyon.asp?aktivizasyon_id=" & aktivizasyon_id & "'>"
  mail = mail & "http://www.emreemlak.info/aktivizasy...ktivizasyon_id=" & aktivizasyon_id & "</a>"
  aktivizasyon.BodyFormat = 0
  aktivizasyon.MailFormat = 0
  aktivizasyon.Body = mail
  aktivizasyon.Send
  Set aktivizasyon = Nothing
  %>
 

 <table width="400" align="center" class="tborder">
  <tr>
  <td height="18" align="center" bgcolor="#D5D5FF" class="baslik"><strong>UYARI</strong></td>
  </tr>
  <tr>
  <td><div align="justify"><span class="uyari"><%if Not isNumeric(telefon) or len(telefon) <> 10 Then%>Telefon Numaranız geçerli gözükmüyor. Lütfen tekrar deneyiniz...<br /><%End if%><%if len(kullanici) < 6 or len(sifre) < 6 Then%>Kullanıcı adınız yada şifreniz kısa. Lütfen her ikisinede en az 6 karakter giriniz...<br /><%End if%><%if et = 0 or nokta = 0 Then%>Mail adresiniz hatalı gözüküyor...<%End if%>
  </span><br />
        <strong><a href="default.asp?icerik=2" class="uyari">Otomatik Olarak Y&ouml;nledirilmezse L&uuml;tfen Tıklayın...</a> </strong> </div></td>
  </tr>
</table>
<script type="text/javascript">
 <!--
 function exec_refresh()
 {
  window.status = "Yönlendiriliyor..." + myvar;
  myvar = myvar + " .";
  var timerID = setTimeout("exec_refresh();", 200);
  if (timeout > 0)
  {
   timeout -= 1;
  }
  else
  {
   clearTimeout(timerID);
   window.status = "";
   window.location = "<%=adres%>";
  }
 }
 
 var myvar = "";
 var timeout = 20;
 exec_refresh();
 //-->
 </script>
<script type="text/javascript">
 <!--
 function exec_refresh()
 {
  window.status = "Yönlendiriliyor..." + myvar;
  myvar = myvar + " .";
  var timerID = setTimeout("exec_refresh();", 200);
  if (timeout > 0)
  {
   timeout -= 1;
  }
  else
  {
   clearTimeout(timerID);
   window.status = "";
   window.location = "<%=adres%>";
  }
 }
 
 var myvar = "";
 var timeout = 20;
 exec_refresh();
 //-->
 </script>
mail bileşini olmadı için gondermıyo ama istedim gibi olma yolu varmı