<%@ 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 %>