Function chkIPRange (startIP, endIP, ip)
chkIPRange = false
myArray1 = split(startIP, ".")
myArray2 = split(endIP, ".")
myArray3 = split(ip, ".")

'myArray1 to Binary
	for n = 0 to 3
		myInt= CInt(myArray1(n))
		binmyArray1 = binMyArray1 & dectobin(myInt)
	next
	document.write binmyArray1 & " - " & bintodec(binmyArray1) & "<br>"

'myArray2 to Binary
	for n = 0 to 3
		myInt= CInt(myArray2(n))
		binmyArray2 = binMyArray2 & dectobin(myInt)
	next
	document.write binmyArray2 & " - " & bintodec(binmyArray2) & "<br>"

'myArray3 to Binary
	for n = 0 to 3
		myInt= CInt(myArray3(n))
		binmyArray3 = binMyArray3 & dectobin(myInt)
	next
	document.write binmyArray3 & " - " & bintodec(binmyArray3) & "<br>"

	if (bintodec(binmyArray1) <= bintodec(binmyArray3)) and (bintodec(binmyArray3) <= bintodec(binmyArray2)) then
		chkIPRange = true
	else 
		chkIPRange = false
	end if
End Function

Function DecToBin(dIn)
   DecToBin = ""
   While dIn >= 1
     if dIn Mod 2 then
     DecToBin = "1" & DecToBin
     else 
     DecToBin = "0" & DecToBin
     end if
     dIn = dIn \ 2
   Wend
   if len(DecToBin) < 8 then
	for i = 1 to 8 - len(DecToBin)
		DecToBin = "0" & DecToBin
	next
	end if 
End Function

Function BinToDec(sIn)
   Dim x
   BinToDec = 0
   For x = 1 To Len(sIn)
     BinToDec = BinToDec + (CInt(Mid(sIn, x, 1)) * (2 ^ (Len(sIn) - x)))
   Next
End Function

Function Dot2LongIP (ByVal DottedIP)
Dim i, pos
Dim PrevPos, num
If DottedIP = "" Then
    Dot2LongIP = 0
Else
    For i = 1 To 4
        pos = InStr(PrevPos + 1, DottedIP, ".", 1)
        If i = 4 Then 
            pos = Len(DottedIP) + 1
        End If
        num = Int(Mid(DottedIP, PrevPos + 1, pos - PrevPos - 1))
        PrevPos = pos
        Dot2LongIP = ((num Mod 256) * (256 ^ (4 - i))) + Dot2LongIP
    Next
End If
End Function 

If IPAddress > Dot2LongIP("127.0.64.1") AND IPAddress < Dot2LongIP("127.0.79.254") then .......