Üye Ol Problemi

<!-- #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"))
  
yer=server.mappath("veritabaniklasoru/DB.mdb")
ac="DBQ="& yer &";Driver={Microsoft Access Driver (*.mdb)}"
set baglanti=server.createobject("adodb.connection")
baglanti.open ac,1,3
set rs=server.createobject("adodb.recordset")

SQLkont="Select * from UYELER where rumuz='"& rumuz &"'"
rs.open SQLkont, baglanti, 1, 3
if not rs.eof then
response.write "<br><br><br><center><br><br><font color=red size=1 face=verdana> Bu Rumuz baskasi
tarafindan kullaniliyor. !<br><br>"
response.end
end if
rs.close

  kayit.addnew
  kayit("rumuz")    = rumuz
  kayit("sifre")    = sifre
  kayit("email")    = email
  kayit("cinsiyet") = cinsiyet
  kayit.update
  %>[/color]
    
<script>
alert("Üyelik isleminiz basari ile gerçeklesti. Login sayfamizdan giris yapabilirsiniz..");history.back()
</script>

<% 
userip=request.servervariables("remote_addr")
userhost=request.servervariables("remote_host")
%>

<%
'Check if the user ip is in the database

accessdb="veritabaniyolu/DB.mdb" 
servf="driver={Microsoft Access Driver (*.mdb)};"
servf=servf & "dbq=" & server.mappath(accessdb)
set req = server.createobject("ADODB.Recordset")
sql = "select ip from iplist where ip ='" & userip & "'"

req.Open sql, servf                                                  <<<  15.SATIR BURASI OLUYOR  
if req.eof then
ipin = "Y"
end if
req.close
%>


<%
'if the IP is IN the database, print the ipin.inc page

if ipin <> "Y" then %>

<!--#include file = "ipin.inc"-->

<% else %>

<%
'if the IP is OUT the database, print the ipout.inc page
%>

<!--#include file = "ipout.inc"-->

<% end if %>