1

Blogger templates

Blogger news

<% Dim pais, idioma 'Detectamos el pais del usuario pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") 'A partir de los dos primeros caracteres detectamos el idioma idioma = Left(pais, 2) select case idioma case "es" idioma = "En Español: Bienvenido a WebExperto.com" case "pt" idioma = "En Portugués Bem-vindo a WebExperto.com" case "en" idioma = "En Inglés: Welcome to WebExperto.com" end select response.write idioma %>

Blogroll

FORMULARIOS
Nombre:
Email:
Motivo:
Mensaje:

About

free counters