12

Yeni sayfanın başlığı

<% if request.form("ad")="" or request.form("soyad")="" or request.form("kadi")="" or request.form("sifre")="" then response.redirect("hata.asp?hata=5") else %> <% Set conn=server.createobject("adodb.connection") dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}; " dsnpath=dsnpath & "DBQ=" & Server.MapPath("uyeler.mdb") conn.open dsnpath sql="SELECT*FROM uyeler;" Set rs=conn.execute(sql) Do While not rs.eof if request.form("kadi")=rs("kadi") then msg="girmis olduğunuz kullanici adi kullanilmaktadir !!!" %> <% response.end end if rs.movenext loop sql="insert into uyeler(" sql=sql + "ad," sql=sql + "soyad," sql=sql + "kadi," sql=sql + "sifre" sql=sql + ") values(" sql=sql + "'" + request.form("ad") + "'" + ", " sql=sql + "'" + request.form("soyad") + "'" + ", " sql=sql + "'" + request.form("kadi") + "'" + ", " sql=sql + "'" + request.form("sifre") + "'" +");" conn.execute(sql) msg="uyeliginiz basarili bir sekilde tamamlanmistir !!!" end if rs.close Set rs=nothing conn.close Set conn=nothing %>