'
<%
' NetDLL ASP example
Dim wherefrom
wherefrom=Request.ServerVariables("REMOTE_ADDR")
Dim netDLL
Dim thisHost
dim parker
dim comcast
dim portstjoe
dim bristol
dim wewa
dim firewall
dim springfield
dim beach
' dim springfieldstaff
' dim beachstaff
' dim parkerstaff
' dim test1
' dim test2
' dim testa
dim string11
dim resut
Dim ArrayIPLocalStart(2)
Dim ArrayIPLocalEnd(2)
Dim ArrayIPClient
Dim IPClient
Dim blnLocal
comcast = 0
%>
<%
firewall="64.139.92.241"
string11=0
trim(test1)
trim(wherefrom)
trim(parker)
trim(portstjoe)
trim(bristol)
trim(wewa)
trim(firewall)
trim(springfield)
trim(comcast)
trim(beach)
' trim(springfieldstaff)
' trim(parkerstaff)
' trim(beachstaff)
Ipclient = Request.ServerVariables("REMOTE_ADDR")
Response.Write "Your IP is " & ipclient & "
"
blnLocal = False
' These IP address are constant IP of a
' LAN
ArrayIPLocalStart(0) = "010.000.000.000" '"10.0.0.0"
ArrayIPLocalEnd(0) = "010.255.255.255" '"10.255.255.255"
ArrayIPLocalStart(1) = "172.016.000.000" '"172.16.0.0"
ArrayIPLocalEnd(1) = "172.031.255.255" '"172.31.255.255"
ArrayIPLocalStart(2) = "192.168.000.000" '"192.168.0.0"
ArrayIPLocalEnd(2) = "192.168.255.255" '"192.168.255.255"
ArrayIPClient = split(Ipclient,".")
' format the remote IP like constant LAN
' IP
For i = lbound(ArrayIPClient) To ubound(ArrayIPClient)
ArrayIPClient(i) = string(3-len(ArrayIPClient(i) ),"0") & ArrayIPClient(i)
next
IPClient = join(ArrayIPClient,"")
if trim(ipclient) <> "" Then
For i = lbound(ArrayIPLocalStart) To ubound(ArrayIPLocalStart)
ArrayIPLocalStart(i) = replace(ArrayIPLocalStart(i),".","")
ArrayIPLocalEnd(i) = replace(ArrayIPLocalEnd(i),".","")
if IPClient >= ArrayIPLocalStart(i) and IPClient =< ArrayIPLocalEnd(i) Then
blnLocal = True
Exit For
End if
Next
End if
if blnLocal=True Then string11=1
resut=StrComp(test1, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(parker, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(portstjoe, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(bristol, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(wewa, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(firewall, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(springfield, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(beach, wherefrom, 1)
if (resut=0) then string11=1
resut=StrComp(comcast, wherefrom, 1)
if (resut=0) then string11=1
' resut=StrComp(springfieldstaff, wherefrom, 1)
' if (resut=0) then string11=1
' resut=StrComp(beachstaff, wherefrom, 1)
' if (resut=0) then string11=1
' resut=StrComp(parkerstaff, wherefrom, 1)
' if (resut=0) then string11=1
' Response.Write "Your IP address has been logged as:" & wherefrom & "
"
if string11=1 then
' response.redirect "http://poptop.nwrls.com:2048/menu.htm
response.redirect "http://poptop.nwrls.com:2048/login?user=asp&pass=changeregularly"
' response.redirect "http://ezproxy.nwrls.com:2048/login?user=asp&pass=changeregularly"
else response.redirect "http://www.nwrls.com/sorry.htm"
end if
%>
You will be redirected to the databases available to you.