<%
' IP convert function written by JHM 2004-07-29
' Function converts IP adress from dotted decimal notation to pure decimal notation.
' Ie the IP written in decimal dotted octet 172.20.1.1 can be written as 2886992129.
' This is useful for sorting ipadresses which otherwise sorts rather strange.
Function IPConvert(IPAddress)

    Dim x,Pos,PrevPos,Num
    If UBound(Split(IPAddress, ".")) = 3 Then
        For x = 1 To 4
            Pos = InStr(PrevPos + 1, IPAddress, ".", 1)
            If x = 4 Then Pos = Len(IPAddress) + 1
            Num = Int(Mid(IPAddress, PrevPos + 1, Pos - PrevPos - 1))
            If Num > 255 Then
                IPConvert = "0"
                Exit Function
            End If
            PrevPos = Pos
            IPConvert = ((Num Mod 256) * (256 ^ (4 - x))) + IPConvert
        Next
    else
    
    Err.Raise 1, "IPconvert", "Bad octet in " & IPaddress
    End If
End Function
%>