<%
dim btest, UCFip, Proxy1, Proxy2, PrivAdd, PrivAdd2, PrivAdd3, UCFPriv,Subtest, Test172
btest=(Request.ServerVariables("REMOTE_ADDR"))
Proxy1 = "192.5.2.133"
Proxy2 = "192.5.2.143"
Proxy3 = "192.5.2.153"
PrivAdd ="10."
PrivAdd2 ="172."
UCFPriv = left(Trim(btest),3)
UCFPriv2 = left(Trim(btest),7)
Test172 = left(Trim(btest),4)
UCFip = Left(Trim(btest),7)
%>
<%
If (Test172 = PrivAdd2) then
Subtest = UCFPriv2
If (Subtest= "172.16.") or (Subtest= "172.17.") or (Subtest= "172.18.") or (Subtest= "172.19.") or (Subtest= "172.20.") or (Subtest= "172.21.") or (Subtest= "172.22.") or (Subtest= "172.23.") or (Subtest= "172.24.") or (Subtest= "172.25.") or (Subtest= "172.26.") or (Subtest= "172.27.") or (Subtest= "172.28.") or (Subtest= "172.29.") or (Subtest= "172.30.") or (Subtest= "172.31.") or (Subtest= "172.32.") then
UCFIP = "132.170"
end if
else
If (UCFip = "132.170") or (btest = Proxy1) or (btest = Proxy2) or (btest = Proxy3) or (UCFPriv = PrivAdd) then
Response.write " "
%>
Restricted Database Access
You reached this page because the database you chose has extra restrictions. You have been
authenticated and can access the databases below. Find the database title and follow any special
instructions.
-
RIA OnPoint Tax Library
- Please click the link above to connect. Please Logout when you are
done.
<%
else
%>
** <%
Response.write(btest)
%> **
<%
Response.Redirect ("../asp/notauthorized.asp")
end if
end if
%>
OneSearch
