Merhaba arkadaşlar ben bır sayfa yaptım ve bu sayfaya bir giren bir daha girsin istemiyorum bunuda bir veritabanı oluşturup gelen ziyaretcilerin ip sini kayıt ettim ve if else ile yaptım yanlız sayfa ne hata veriyor nede komutları gerceklestiriyor. ip veritabanına kayıt ediyor. yanlız ip varsa su işlemi yap ip yoksa su işlemi yap demiyor. Acaba nerde hata yapıyoruz ?
--------
--------
HTML:
<% IP_Address = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP_Address = "" Then
IP_Address= Request.ServerVariables("REMOTE_ADDR")
End If %>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ip.mdb")
%>
<%
Set ve=Server.CreateObject("Adodb.Recordset")
Sorgu = "select * from ip where ip='&IP_Address&'"
ve.Open Sorgu, Baglanti, 1, 3
%>
<% do while not ve.eof%>
<% if ve("ip" )="&IP_Address&" then%> yaz dahaa
<%else%>
gelmemiş <%end if%><%ve.movenext
loop
ve.close
%><%
Set Kayit = Server.CreateObject ("ADODB.RecordSet")
Sql_Komutu = "Select * from ip"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
Kayit.AddNew
Kayit("ip")=IP_Address
Kayit.Update
Kayit.close
Set Kayit = Nothing
%>