UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIP = "" Then UserIP = Request.ServerVariables("REMOTE_ADDR")
sql="select * from iptable where allowip='"&UserIP&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect ...
else
...
end if