<!-- #include file="Filtter.asp" -->
<title>sayfa basligi </title>
<%
Set osman=Server.CreateObject("Adodb.Connection")
osman.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabaniklasroru/DB.mdb") & ";pwd=adminadmin"

%>
<%
Set kayit=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from UYELER"
kayit.Open sorgu, osman, 1 , 3

dim rumuz
dim sifre
dim email
dim cinsiyet

rumuz = duz(request.form("rumuz"))
sifre = duz(request.form("sifre"))
email = duz(request.form("email"))
cinsiyet = duz(request.form("cinsiyet"))

set rs = server.createobject("adodb.recordset")
sql = "select * from UYELER where rumuz='"& rumuz &"'"
rs.open sql, osman, 1, 3
if not rs.eof then
response.write "<font size=""2"" face=""Verdana"" color=""#535353""><b>Yazdığınız Kullanıcı Adında Başka Bir Üye Var! Lütfen Kullanıcı Adınızı Değiştirin...</b></font><br>"
response.end
end if
rs.close
kayit.addnew
kayit("rumuz") = rumuz
kayit("sifre") = sifre
kayit("email") = email
kayit("cinsiyet") = cinsiyet
kayit.update
%>

<script>
alert("Üyelik isleminiz basari ile gerçeklesti. Login sayfamizdan giris yapabilirsiniz..");history.back()
</script>