Redirect Web Visitors By Country Using ASP & COM Technol
« on: September 30, 2007, 02:45:25 PM »
There are times when it is useful to redirect a visitor to different default web page based on the visitor's country of origin. One practical usage is to redirect visitor to web page with the language recognized by the visitor. This article shows you how using ASP and ActiveX component this can be done.

Let us take a simple case study. Company XYZ is multi-national company with major customers from United States and Japan. The company official website is developed in both English and Japanese languages. The default page is in English language and visitor can switch to Japanese by changing the default language option. There exists a potential problem when a Japanese visitor does not understand English and it could not navigate the web site. So let us developed a simple solution to help Company XYZ redirecting all Internet traffic from country Japan to the Japanese language site. Meanwhile it drives the rest traffic to English site.

In this example, we use a fully functional IP2Location™ ActiveX component available at http://www.ip2location.com/ip2location-country.zip to query country by visitor's IP address. For unregistered component, there is a 5-second delay in every query. First, install the ActiveX component in IIS web server. It could be as simple as running a command in DOS prompt.

C:> regsvr32 ip2location.dll

Let's assume the English web page as index_en.htm and Japanese web page as index_jp.htm. We implement a simple script default.asp to detect visitor's country of origin. If the visitor is from Japan, then redirect him/her to index_jp.htm, otherwise index_en.htm. Simple? Here is the code and the comments serve as explanation default.asp.

<%

' Create server-side object

Set ipObj = Server.CreateObject("IP2Location.Country")

' Initialize IP2Location object

If ipObj.Initialize("demo") <> "OK" Then

response.write "IP2Location Initialization Failed.

End If

' Get visitor's IP address

IPaddr = Request.ServerVariables("REMOTE_ADDR")

' Detect visitor's country of origin by IP address

CountryName = ipObj.LookUpShortName(IPaddr)

' Free IP2Location object

Set ipObj = nothing

If CountryName = "JP" Then

' Visitor is from Japan

' Redirect the URL to index_jp.htm

Response.Redirect "index_jp.htm"

Else

' Visitor is not from Japan

' Redirect the URL to index_en.htm

Response.Redirect "index_en.htm"

End If %>

Place this script as the default script of the web site. All visitors will go through this screening before redirect to an appropriate web page

Hexasoft Development Sdn. Bhd. (645996-K)
1-2-15 Mayang Mall Complex,
Jalan Mayang Pasir 1,
11950 Bandar Bayan Baru,
Penang, Malaysia.
{ http://EzineArticles.com/?expert=Ivy_Tang
« Last Edit: January 01, 1970, 05:30:00 AM by Tech »