Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if request("lang") <> "" then
' Evitamos que nos metan basura
select Case request("lang")
case "en","eng"
response.Redirect("eng/inicio.asp")
case else
response.Redirect("esp/inicio.asp")
end select
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Paseando con ASP</title>
</head>
<body>
<a href="<%=request.ServerVariables("SCRIPT_NAME")%>?lang=eng">Inglés</a><br />
<a href="<%=request.ServerVariables("SCRIPT_NAME")%>?lang=esp">Español</a><br />
</body>
</html>
Aunque yo personalmente prefiero cambiar el texto estático usando un archivo con los datos usando variables o XML (ultimamente uso XML para todo
)
/idiomas/es.asp
/idiomas/en.asp
Y en el script principal, poner un include o la lectura del archivo XML
Luego no tengo mas que rellenar los textos estáticos
<%=txt_precio%>: <%=rs("total")%>
o con XML
<%=getFromXML("text_precio")%>: <%=rs("total")%>
Un saludo