<%response.ContentType = "text/javascript "
Dim IP,seccion,pais
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ' se chequea si hay un proxy
If IP ="" Then IP = Request.ServerVariables("REMOTE_ADDR") ' si no hay proxy se toma la IP original
seccion=request("seccion")
seccion=replace(seccion,"www.elcomercioperu.com.pe/","")
'CREA OBJETO QUE VERIFICA EL RANGO DE LA IP
set objVerificarIp=server.CreateObject("Consultas.IP")
pais=objVerificarIp.VerificaIP(IP)
'objVerificarIp.close
set objVerificarIp=Nothing
'DEACUERDO AL VALOR DEVUELTO POR EL COMPONENTE PINTA EL TAG
select case pais
case "USA"'publicidad para EEUU
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write(' ![]()
');")
response.write("document.write('');")
response.write("document.write(' ');")
response.write("document.write(' ');")
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write('');")
case "PER"'publicidad para PERU
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write(' ![]()
');")
response.write("document.write('');")
response.write("document.write(' ');")
response.write("document.write(' ');")
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write('');")
case else
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write(' ![]()
');")
response.write("document.write('');")
response.write("document.write(' ');")
response.write("document.write(' ');")
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write('');")
response.write("document.write('');")
end select
%>