<%
'Read in XML
'NB Dosent like local addresses e.g. 127.0.0.1
set xmlDoc = createObject("MSXML2.DOMDocument.3.0")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load("http://api.hostip.info/get_xml.php?ip=" & Request.ServerVariables("REMOTE_HOST"))
'Output results
If xmlDoc.parseError.reason <> "" then
Response.Write "XML load failed: " & xmlDoc.parseError.reason
Else
Response.Write "XML load succeeded!"
End If
%>
You live near
<%=xmlDoc.selectSingleNode("HostipLookupResultSet/gml:featureMember/Hostip/gml:name").text %>
In
<%=xmlDoc.selectSingleNode("HostipLookupResultSet/gml:featureMember/Hostip/countryName").text %>
Which the abreviation is
<%=xmlDoc.selectSingleNode("HostipLookupResultSet/gml:featureMember/Hostip/countryAbbrev").text %>