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önledirilmezse Lü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ı 
