Se me ocurrió algo así, que sería conviertiendo las IP's a un número entero (de 1001001001 a 255255255255) y verificando si la IP a verificar (aunque no valga la redundancia) se encuentra entre ellas:
Código:
<%
function ip_a_numero(ip)
tmp = split(ip, ".")
for i = 0 to ubound(tmp)
tmp(i) = left("000",3-len(tmp(i))) & tmp(i)
next
ip_a_numero = int(join(tmp, ""))
end function
ipInferior = "80.34.190.0"
ipSuperior = "80.34.190.100"
ipAVerificar = "80.34.190.50"
if ip_a_numero(ipInferior) < ip_a_numero(ipAVerificar) AND ip_a_numero(ipSuperior) > ip_a_numero(ipAVerificar) then
response.write "Está en el rango"
else
response.write "No está en el rango"
end if
%>