<% ' Criate objeto server-side Set ipObj = Server.CreateObject("IP2Location.Country") ' Inicializa objeto IP2Location If ipObj.Initialize("demo") <> "OK" Then response.write "IP2Location Initialization Failed. End If ' IP address IPaddr = Request.ServerVariables("REMOTE_ADDR") ' Detectar país de origem do visitante por endereço IP CountryName = ipObj.LookUpShortName(IPaddr) ' objeto IP2Location Set ipObj = nothing If CountryName = "BR" Then ' Visitante é do Brasil ' Redirect para catalogo/bra/index.asp Response.Redirect "catalogo/bra/index.asp" Else ' Visitante não é do Brasil ' Redirect para catalogo/eng/index.asp Response.Redirect "catalogo/eng/index.asp" End If %> Loading...