<%
userip=request.servervariables("remote_addr")
userhost=request.servervariables("remote_host")
%>
<%
'Check if the user ip is in the database
Set osman = Server.CreateObject("ADODB.Connection")
osman.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("veritabaniyolu/DB.mdb")
set req = server.createobject("adodb.recordset")
sql = "select * from iplist where ip='"& userip &"'"
req.open sql, osman, 1, 3
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 %>