<%@ Language=VBScript %>
<%
Dim myIP
myIP = Request.ServerVariables("REMOTE_ADDR")
'change the ip below... 127.0. is 127.0*
' , so if you're ip has that
'listed it will let you in, otherwise, i
' t won't... the farther you
'go down on the ip segement the more you
' will restrict
if InStr(myIP, "129.241") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "078.091") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "81.161") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "147.102") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "147.27") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "155.207") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "141.85") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "195.134") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "160.75") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "195.251") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "62.103") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "83.212") > 0 Then
' Good Domain, Let them in
Else
if InStr(myIP, "255.255") > 0 Then
' Good Domain, Let them in
Else
response.write "Authorization denied"
response.write "Your domain is NOT listed as one authorized to enter the WSEAS E-Library. Contact WSEAS immediately: http://www.worldses.org/contact_us.htm
"
response.end
End if
End if
End if
End if
End if
End if
End if
End if
End if
%>