Hola amigos
Alguien se anima a traduccirme este codigo asp en php
la verdad que solo tengo dudas en algunas cosas, ya que casi todo son condiciones pero bueno hay pongo todo
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim pais, idioma, pagina
pagina = request.QueryString ("pagina")
idioma = request.QueryString("idioma")
if idioma = "" then
idioma = request.cookies("idioma")
if idioma = "" then
'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)
end if
else
'si el idioma llega del query escribimos cookie y seguimos
response.cookies("idioma")= idioma
response.cookies("idioma").Expires=Date+365
response.Cookies("idioma").Domain = "dominio.com"
end if
If pagina = "" then
Select Case idioma
Case "es":
server.execute ("/index_es.asp")
response.end()
Case "de":
server.execute ("/index_de.asp")
response.end()
Case Else:
server.execute ("/index_en.asp")
response.end()
End Select
Else
response.redirect (pagina&idioma&".asp")
response.end()
end If
%>
gracias