Function: convert long integer numbers into IP addresses
<%
FunctionCStrIP(ByValanNewIP)
DimlsResults
DimlnTemp
DimlnIndex
ForlnIndex=3To0Step-1
lnTemp=Int(anNewIP/(256^lnIndex))
lsResults=lsResults&lnTemp&"."
anNewIP=anNewIP-(lnTemp*(256^lnIndex))
Next
lsResults=Left(lsResults,Len(lsResults)-1)
CStrIP=lsResults
EndFunction
%>