Eskiden Hata Vermiyordu. Bişiler yaptım hata verdi ;
Microsoft VBScript derleme hatası- Error '800a03f6'
'End' gerekli
/kayit.asp, line 50
Response.WriteBlock(6)
----------------------^
<%
kadi=Request.Form("kadi")
ksifre=Request.Form("ksifre")
ksifre2=Request.Form("ksifre2")
kmail=Request.Form("kmail")
kmail2=Request.Form("kmail2")
ad=Request.Form("ad")
meslek=Request.Form("meslek")
soyad=Request.Form("soyad")
%>
<%
if kadi="" or ksifre="" or ksifre2="" or kmail="" or ad="" or meslek="" or soyad="" THEN
%>
<font face="verdana" size="1" color="#000080"><center>Hiç Bir Alanı Boş Bırakmayın !</center></font>
<%
Response.End
end if
%>
<%
set baglanti= Server.CreateObject("ADODB.Connection")
baglanti.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("evkuran.mdb"))
Set uyekontrol=Server.CreateObject("Adodb.Recordset")
uye="select * from uye where kadi='"&kadi&"' and ksifre='"&ksifre&"'"
uyekontrol.Open uye, baglanti, 1, 3
if not uyekontrol.eof THEN
%>
<font size="2"><font color="#000080">Daha önce kayıt yapmışsınız , Şifremi
unuttum bölümünden şifrenizi hatırlayabilirsiniz</font>. [
<a href="giris.asp" style="text-decoration: none">Giriş Yap</a> /
<a href="uyeol.asp" style="text-decoration: none">Üye Ol</a> ]</font><p>
<font face="Verdana" size="1">
<%
END IF
Set uyekaydet=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from uye"
uyekaydet.Open Sorgu, baglanti, 1, 3
IF NOT ksifre=ksifre2 or kmail=kmail2 THEN
Response.Write "<font face="verdana" size="1" color="#000080"><center>Parola veya Mail'inizin Tekrarını Yanlış Yazdınız !"
Response.Write "[ <a href="uyeol.asp" style="text-decoration: none">Geri Dön !</a>]</font> </p> </center></font>"
Response.end
else
uyekaydet.AddNew
uyekaydet("kadi")=kadi
uyekaydet("ksifre")=ksifre
uyekaydet("kmail")=kmail
uyekaydet("ad")=ad
uyekaydet("soyad")=soyad
uyekaydet("meslek")=meslek
uyekaydet("yetki")=1
uyekaydet("ban")=false
uyekaydet.Update
Response.Redirect "giris.asp"
END IF
%>
Teşekkür listesi şu anda boş.