yeni_uye_kaydet.asp
--------
Alıntı
<head>
<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"))
guvkod=koru(request("guvkod"))
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 guvkod<>"" and guvkod=session("guvkod") kullanici <>"" and sifre <>"" and eposta <>"" and adres <>"" and telefon_kodu <>"" and telefon_numarasi <> "" Then


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(ad_soyad, kullanici_adi, sifre, email, adres, telefon, kayit_tarihi) values ('"&ad&"', '"&kullanici&"', '"&sifre&"', '"&eposta&"', '"&adres&"', '"&telefon&"', #"& kayit_tarihi &"#)"
baglanti.Execute(strSQL)
Session.LCID = 1055
ks1.Close
Set ks1 = Nothing
adres="default.asp"

%>
</head>

<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>
</p>


icerik2_yeni_uye.asp
---------
Alıntı
<%
if Session("uye") = True Then
Response.Redirect("default.asp?icerik=2")
Response.End
End if
%>
<%
Set ks1 = baglanti.Execute("sp_kurallar")
%>
<style type="text/css">
#kurallar {
width:370;
height:250;
overflow:auto;
scrollbar-face-color: #d5d5ff;
scrollbar-shadow-color: #000099;
scrollbar-highlight-color:#000099;
scrollbar-track-color: #d5d5ff;
scrollbar-3dlight-color: #ffffff;
scrollbar-darkshadow-color:#ffffff;
scrollbar-arrow-color: #000000;
}
</style>
<script language="JavaScript">
<!--
/***********************
*Form Dogrulama Scripti*
*2006-G.Gökmen Korkmaz *
***********************/
function formKontrol(formobj){
var onerilenAlanlar = Array("ad", "kullanici", "sifre","eposta", "adres", "telefon_kodu", "telefon_numarasi","guvkod");
var alanAciklamasi = Array("Adiniz, Soyadiniz", "Kullanici Adiniz", "Sifreniz","E-Mail Adresiniz", "Adresiniz", "Telefon Alan Kodunuz", "Telefon Numaraniz", "Sözlesme Kabulü","guvkod");
var uyariMsj = "Lütfen Su Alanlari Doldurun:\n";

var l_Msj = uyariMsj.length;

for (var i = 0; i < onerilenAlanlar.length; i++){
var obj = formobj.elements[onerilenAlanlar[i]];
if (obj){
switch(obj.type){
case "select-one":
if (obj.selectedIndex == -1 || obj.options[obj.selectedIndex].text == ""){
uyariMsj += " - " + alanAciklamasi[i] + "\n";
}
break;
case "select-multiple":
if (obj.selectedIndex == -1){
uyariMsj += " - " + alanAciklamasi[i] + "\n";
}
break;
case "text":
case "textarea":
case "password":
if (obj.value == "" || obj.value == null){
uyariMsj += " - " + alanAciklamasi[i] + "\n";
}
break;
default:
}
if (obj.type == undefined){
var blnchecked = false;
for (var j = 0; j < obj.length; j++){
if (obj[j].checked){
blnchecked = true;
}
}
if (!blnchecked){
uyariMsj += " - " + alanAciklamasi[i] + "\n";
}
}
}
}

if (uyariMsj.length == l_Msj){
return true;
}else{
alert(uyariMsj);
return false;
}
}
// -->
</script>
<script>
var checkobj
function agreesubmit(el){
checkobj=el
if (document.all||document.getElementById){
for (i=0;i<checkobj.form.length;i++){
var tempobj=checkobj.form.elements[i]
if(tempobj.type.toLowerCase()=="submit")
tempobj.disabled=!checkobj.checked
}
}
}
function defaultagree(el){
if (!document.all&&!document.getElementById){
if (window.checkobj&&checkobj.checked)
return true
else{
alert("Lütfen Sözlesmeyi Kabul Ediniz!")
return false
}
}
}
</script>
<table cellpadding="0" cellspacing="0" align="center">
<form action="yeni_uye_kaydet.asp" method="post" name="frmYeniUye" onsubmit="return formKontrol(this);">
<tr><td>
<table width="370" align="center" cellpadding="0" cellspacing="0" class="tborder">
<tr>
<td><table width="370" cellspacing="3">
<tr>
<td height="18" colspan="3" align="center" bgcolor="#D5D5FF"><strong class="baslik">Yeni &Uuml;ye </strong></td>
</tr>
<tr>
<td width="109">Adınız, Soyadınız </td>
<td width="3">:</td>
<td width="238"><input name="ad" type="text" class="input" id="ad" size="25" maxlength="50"></td>
</tr>
<tr>
<td>Kullanıcı Adınız </td>
<td>:</td>
<td><input name="kullanici" type="text" class="input" id="kullanici" size="15" maxlength="10"></td>
</tr>
<tr>
<td>Şifreniz</td>
<td>:</td>
<td><input name="sifre" type="password" class="input" id="sifre" size="15" maxlength="10"></td>
</tr>
<tr>
<td>E-Mail Adresiniz </td>
<td>:</td>
<td><input name="eposta" type="text" class="input" id="eposta" size="25" maxlength="50"></td>
</tr>
<tr>
<td valign="top">Adresiniz</td>
<td valign="top">:</td>
<td><textarea name="adres" cols="25" rows="3" class="input" id="adres"></textarea></td>
</tr>
<tr>
<td>Telefon Numaranız </td>
<td>:</td>
<td>0-
<input name="telefon_kodu" type="text" class="input" id="telefon_kodu" size="3" maxlength="3" />
-
<input name="telefon_numarasi" type="text" class="input" id="telefon_numarasi" size="7" maxlength="7"></td>
</tr>
<tr>
<td>Güvenlik Numarası</td>
<td>&nbsp;</td>
<td>&nbsp; <%




enalt_sayi = 999

enust_sayi = 99999



Randomize()



isle = enust_sayi - enalt_sayi + 1

random = isle * rnd()

random = random + enalt_sayi

guvenlik = int(random)
Session("guvkod")=guvenlik
%>

<%=guvenlik%>

<input name="guvkod" type="text" class="input" id="guvkod" size="6" maxlength="6">
</td>
</tr>
</table></td>
</tr>
</table>
<br />
<table align="center" width="100%">
<tr>
<td align="center">
<table align="center" width="370" cellpadding="0" cellspacing="0" class="tborder">
<tr>
<td>
<div id="kurallar">
<table width="340" align="left" cellspacing="3">
<tr>
<td align="justify">
<%=ks1("kurallar")%>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<tr>
<td align="center">S&ouml;zleşmeyi Okudum ve Kabul Ediyorum
<input name="kabul" type="checkbox" id="kabul" value="kab&uuml;l" onClick="agreesubmit(this)"/></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
</tr>
<tr>
<td align="center"><input name="btnYeniUyeKaydet" type="submit" class="input" id="btnYeniUyeKaydet" value="Kaydet" disabled/></td>
</tr>
</table>
</td></tr></form></table>
<%
ks1.Close
Set ks1 = Nothing
%>
Böyle denermisin.