ARKADAŞLAR BURDA HATA NERDE YAA
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Esat Baba
</title>
</head>
<body>
<!--------'Bu bölümde yazdığımız formdaki değerleri çağırıyoruz...'--------->
<%
ad=request.form("ad")
soyad=request.form("soyad")
email=request.form("email")
kullaniciadi=request.form("kullaniciadi")
sifre=request.form("sifre")
sifred=request.form("sifred")
%>
<!-------'şimdi ise formda olabilecek yanlışlıkları sistemde hata olarak algılanmasını ve kaydın durdurulmasını sağlıycazz'------->
<%
if ad="" or soyad="" or email="" or kullaniciadi="" or sifre="" or sifred="" then
Response.Write "<div align="center">Boş Alan Bırakmayınız !"
elseif not sifre=sifred then
Response.Write "Şifreniz doğrulanmadığı için işleminiz durduruldu !"
elseif len(ad)<5 or len(soyad)<5 or len(kullaniciadi)<5 then
Response.Write "Ad & Soyad & Kullanıcı Adı bölümü en az 5 karakterden oluşmalıdır !"
else
%>
<!-------------'Veritabanı bağlantı kodu'------------>
<%
Set baglanti = Server.CreateObject("adodb.connection")
veriyolu = "Provider=Microsoft.JET.OLEDB.4.0;data source="&Server.MapPath("Veritabani\veritabani.mdb ")&";"
baglanti.open(veriyolu)
%>
<!-----------'şimdi veritanına veri ekleme(yeni kayıt)'-------------->
<%
Set Rs=Server.CreateObject("Adodb.Recordset")
SQL="Select * from UYELER"
rs.open SQL,baglanti,1,3
rs.addnew
rs("ad")=ad
rs("soyad")=soyad
rs("email")=email
rs("kullaniciadi")=kullaniciadi
rs("sifre")=sifre
rs.update
%>
<div align="center">
Kaydınız başarılı bir şekilde tamamlanmıştır.<br>
Kullanıcı Adınız : <%=kullaniciadi%><br>
Şifreniz : <%=sifre%>
</div>
<%
rs.close
Set rs = Nothing
baglanti.close
Set baglanti = Nothing
%>
<%end if%>
</body>
</html>
ACİL YARDIMLARINIZI BEKLİYORUM