Web en distintos idiomas

[Bravenap]

Gracias, me acabas de dar la clave para algo que necesitaba.

Te dejo el código que acabo de hacer, por si te sirve de algo:

diccionario.asp

Código:

	<a href="diccionario.asp?idioma=cas"><img src="images/cas.gif" border="0"></a>
	<a href="diccionario.asp?idioma=cat"><img src="images/cat.gif" border="0"></a>
	<a href="diccionario.asp?idioma=gal"><img src="images/gal.gif" border="0"></a>
	<a href="diccionario.asp?idioma=eus"><img src="images/eus.gif" border="0"></a>
<br>


<%
idioma=Request.Querystring("idioma")
If idioma<>"" Then

set Dic = Server.CreateObject("Scripting.Dictionary")

cas="Inicio,Buscar,Biblioteca"
cat="Inici,Cercar,Biblioteca"
gal="Inixio?,Buscar,Publicacións"
eus="Hasiera,Bilatu,Bibliotelca"

Select case idioma
	case "cas"
	idioma=cas
	case "cat"
	idioma=cat
	case "gal"
	idioma=gal
	case "eus"
	idioma=eus
End Select

id=Split(idioma,",")


For i=0 to UBound(id)
	Dic.Add i+1, id(i)
Next

For each elemento in Dic
 Response.Write(elemento & ": " & Dic.Item(elemento) & "<br>")
Next

End If
%>

Un saludo.