Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim oXMLHTTPLoc Set oXMLHTTPLoc=CreateObject("MSXML2.ServerXMLHTTP") LocationAPI="http://api.ipinfodb.com/v3/ip-country/?key=ACCESSKEY&ip="&Request.ServerVariables("REMOTE_ADDR") oXMLHTTPLoc.Open "POST",LocationAPI, False oXMLHTTPLoc.Send If oXMLHTTPLoc.Status = 200 Then GetTextFromUrl3 = oXMLHTTPLoc.responseText Arr1 = Split(GetTextFromUrl3, "OK") Arr2 = Split(Arr1(1), ";") Arr3 = Split(Arr2(1), " ") CountryLoc=Arr3(0) End If Response.Write("GetTextFromUrl = "&GetTextFromUrl3&"<br><br>Location = "&CountryLoc)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.