<% Option Explicit %> <% Dim oGeoIP,strErrMsg Dim strIP,strCountryName,strCountryCode Set oGeoIP = New CountryLookup oGeoIP.GeoIPDataBase = Server.MapPath("GeoIP.dat") If oGeoIP.ErrNum(strErrMsg) <> 0 Then Response.Write(strErrMsg) Else strIP = request.ServerVariables("REMOTE_ADDR") strCountryName = oGeoIP.lookupCountryName(strIP) strCountryCode = oGeoIP.lookupCountryCode(strIP) End If Set oGeoIP = Nothing %> <%if strCountryCode = "PY" then%><%response.redirect ("py/Paginas/index.asp")%><%end if%> <%if strCountryCode = "MX" then%><%response.redirect ("mx/Paginas/index.asp")%><%end if%> <%if strCountryCode = "PE" then%><%response.redirect ("pe/Paginas/index.asp")%><%end if%> <%if strCountryCode = "CO" then%><%response.redirect ("co/Paginas/index.asp")%><%end if%> <%if strCountryCode = "BO" then%><%response.redirect ("bo/Paginas/index.asp")%><%end if%> <%if strCountryCode = "ES" then%><%response.redirect ("es/Paginas/index.asp")%><%end if%> <%if strCountryCode = "EC" then%><%response.redirect ("ec/Paginas/index.asp")%><%end if%> <%if strCountryCode = "UR" then%><%response.redirect ("ur/Paginas/index.asp")%><%end if%>