- <%
- 'Dim UserIPAddress
- UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- If UserIPAddress = "" Then
- UserIPAddress = Request.ServerVariables("REMOTE_ADDR")
- End If
- if NOT UserIPAddress = "" then
- On Error Resume Next ' prevent tossing unhandled exception
- Dim URL, objXML, value
- Set objXML = Server.CreateObject("MSXML2.DOMDocument.6.0")
- URL = "http://freegeoip.appspot.com/xml/" & UserIPAddress
- 'response.write URL
- if (NOT Err.Description = "") then
- 'You could use the following to email an alert
- 'Response.Write("An error occured when retrieving data from an external source.")
- 'Response.Write(Err.Description)
- 'Response.End
- else
- objXML.setProperty "ServerHTTPRequest", True
- objXML.async = False
- objXML.Load URL
- 'Set oRoot = objXML.selectSingleNode("//response")
- strCountry=objXML.documentElement.childNodes(2).text
- strIP = objXML.documentElement.childNodes(0).text
- strRegion = objXML.documentElement.childNodes(5).text
- strCity = objXML.documentElement.childNodes(6).text
- 'ZipPostalCode = objXML.documentElement.childNodes(7).text
- 'strRcode = objXML.documentElement.childNodes(4).text
- 'value = objXML.documentElement.Text
- 'Response.Write "after setting value: " & Err.Description & "<br>"
- Set objXML = Nothing
- end if
- end if
- %>