%
strVeritabaniYolu = Server.Mappath("veritabani.mdb")
set baglanti= Server.CreateObject("adodb.connection")
baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&strVeritabaniYolu
%>
<%
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
strIp = Request.ServerVariables("REMOTE_ADDR")
Else
strIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
'/////////////////Banli KIsi Engelleme///////////////////////
sql_ban="select * from ban where ip='"&strIp&"'"
set ban= Server.CreateObject("adodb.recordset")
ban.open sql_ban ,baglanti ,1,3
if ban.eof and ban.bof then
durum="temiz"
else
durum="kirli"
response.Redirect("hata.html")
end if
if durum="kirli" then
response.Redirect("hata.html")
end if
'////////////////////BITTI////////////////////////////
sql="select * from toplam"
set top= Server.CreateObject("adodb.recordset")
top.open sql ,baglanti ,1,3
top.addnew
top("ip")= strIp
top("tarih")=date
top.update
sql="select * from uyeler where ip='"&strIp&"' "
set rs= Server.CreateObject("adodb.recordset")
rs.open sql ,baglanti ,1,3
if rs.eof and rs.bof then
rs.addnew
rs("ip")= strIp
rs("songiris")=now
rs.update
else
rs("ip")=strIp
rs("songiris")=now
rs.update
end if
rs.close
%>
Kartal Cemevi Vakfı Hosgeldiniz
|
Ana Menü
Kurslarımız
Hizmetlerimiz
|
Vakfımıza yapacağınız bağışlar
için ; Vakıflarbankası kartal Şb.ytl
:2028087 |
Online
Hizmetler

|
|
Dost Linkler
|
ALEVİLİK BİLGİ
PORTALIMIZA HOŞGELDİNİZ
Lütfen
Tıklayınız |
Anket Köşemiz
Gazeteler
|
|
WEB TASARIM HİZMETLERİ - PC SATIŞ-TEKNİK SERVİS
ÖZEL OKMEYDANI HASTANESİ KARŞISI OKMEYDANI - İSTANBUL
TEL: 0212 254 85
20
@ posta adresimiz : medetcekemci@hotmail.com | | | | |