Se non hai un db d'appoggio puoi prendere spunto da questo:

codice:
<%

Function banned(wip)
	banned = (ip2lng(wip) >= ip2lng("192.168.21.140") And ip2lng(wip) <= ip2lng("192.168.114.71"))
End Function

Function permit(wip)
	permit = (ip2lng(wip) >= ip2lng("192.168.7.4") And ip2lng(wip) <= ip2lng("192.168.7.16"))
End Function

Function ip2lng(wip)
	dim IP0
	IP0 = split(wip, ".")
	ip2lng = Cint(IP0(0))*16777216+Cint(IP0(1))*65536+Cint(IP0(2))*256+Cint(IP0(3))
End Function

%>
ciao