<%
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 "it"
response.redirect "italiano/laposada.php" 
case "en"
response.redirect "english/the_inn.php" 
case "es"
response.redirect "castellano/entrada.php" 
end select

response.redirect "english/the_inn.php" 
%>