<% nodisplay = False If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then FromIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ElseIf Request.ServerVariables("HTTP_CLIENT_IP") <> "" Then FromIP = Request.ServerVariables("HTTP_CLIENT_IP") ElseIf Request.ServerVariables("REMOTE_ADDR") <> "" Then FromIP = Request.ServerVariables("REMOTE_ADDR") end if IsMulti = InStr(1, FromIP, ",", 1) if IsMulti > 0 Then strArray = Split(FromIP, ",") FromIP = strArray(0) FromIP = Trim(FromIP) End If Function GetCountryCodeFromIPAddress() ' Variables Dim objXmlHttp Dim strMainServer Dim strCountryCode Dim UserCountry Dim conArray ' Create XMLHTTP and XML DOM Document objects and set initialize other variable values Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.6.0") lResolve = 2 * 1000 lConnect = 2 * 1000 lSend = 3 * 1000 lReceive = 3 * 1000 strMainServer = "http://api.ipinfodb.com/v3/ip-country/?key=06378ec16f7a98ce7bff649238be679bb5d18ac407e636c735d33f5f7888ae99&ip=" strCountryCode = "" ' Query the main server objXmlHttp.setTimeouts lResolve, lConnect, lSend, lReceive objXmlHttp.open "GET", strMainServer & FromIP, False, "", "" on Error Resume Next objXmlHttp.send If objXmlHttp.status = 200 Then UserCountry = objXmlHttp.ResponseText conArray = Split(UserCountry, ";") strCountryCode = conArray(3) else strCountryCode = "US" end if ' Clean up Set objXmlHttp = Nothing ' Return value GetCountryCodeFromIPAddress = strCountryCode End Function CountryName = Ucase(GetCountryCodeFromIPAddress) if Left(FromIP, 7) = "64.38.2" Then CountryName = "US" 'response.write CountryName if CountryName = "US" or CountryName = "CA" or CountryName = "CZ" or CountryName = "GB" Then nodisplay = True end if nodisplay = True %> SPY4m - Terms and Conditions of Sale