Function: convert IP address into long integer
<%
FunctionCLngIP (ByValasNewIP)
DimlnResults
DimlnIndex
DimlnIpAry
lnIpAry=Split(asNewIP,".",4)
ForlnIndex=0To3
IfNotlnIndex=3Then
lnIpAry(lnIndex)=lnIpAry(lnIndex)*(256^(3-lnIndex))
EndIf
lnResults=lnResults+lnIpAry(lnIndex)
Next
CLngIP=lnResults
EndFunction
%>