I wanna save IP address in database in Int format.

Let's assume the ip is... 219.25.12.0

Can any one give me the idea like how I have to parse and save it into the
database in the int format and again parse for displaying in the origional
form.

Thanks in advance.

"John" <naissani (AT) hotmail (DOT) com> wrote

I can give you some examples in VBScript if that helps?

Steve

Sure, can you give me?

Thanks

"Steve Thompson" <stevethompson (AT) nomail (DOT) please> wrote

"John" <naissani (AT) hotmail (DOT) com> wrote

I could not find a cleaner version that I had, so I wrote this... it doesn't
have any error checking, perhaps it will help.

?IP ("11.22.33.44")

Function IP(strIP)
Dim intPos
Dim IP1
Dim IP2
Dim IP3
Dim IP4
Dim IPAddress
Dim intLen
Dim intPeriod
Dim intPeriod2
Dim intPeriod3

IPAddress = strIP
intPos = 1
intPeriod = InStr(intPos, IPAddress, ".")
IP1 = Left(IPAddress, intPeriod - 1)
intPeriod2 = InStr(intPeriod + 1, IPAddress, ".")
intPeriod3 = InStr(intPeriod2 + 1, IPAddress, ".")
IP2 = Mid(IPAddress, intPeriod + 1, (intPeriod2 - intPeriod - 1))
IP3 = Mid(IPAddress, intPeriod2 + 1, (intPeriod3 - intPeriod2 - 1))
IP4 = Right(IPAddress, Len(strIP) - intPeriod3)
Debug.Print IP1
Debug.Print IP2
Debug.Print IP3
Debug.Print IP4
IP = IPAddress
End Function