<%
if session("DEFAULTLANGUAGE") = "English" then
lang="spanish"
oldlang="english"
end if
if session("DEFAULTLANGUAGE") = "Español" then
lang="english"
oldlang="spanish"
end if
filename = Request.ServerVariables("SCRIPT_NAME")
'response.write ("
script_name: " & filename & "
oldlang: " & oldlang & "
lang: " & lang)
newfilename = changelang(filename, oldlang)
'response.write ("
" & newfilename)
newfilename = "/" & lang & "/" & newfilename
' response.write ("
" & lang & "
" & filename & "
" & newfilename)
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(Server.MapPath (newfilename)) then
response.write("
")
if session("DEFAULTLANGUAGE") = "Español" then
response.write("English
")
else
response.write("Español")
end if
end if
'response.write("variables - testing temporary... Jimmy
")
'for each thing in request.servervariables
' response.write(thing & ":" & request.servervariables(thing) & "
")
'next
%>

(915) 845-5950, FAX (915) 845-4361, General e-mail / correo general:
mail@fep.paho.org
Web comments / comentarios para la página electrónica: webmaster@fep.paho.org
U.S. - Mexico Border
Field Office of
the Pan
American Health Organization,
Regional Office of the
World Health Organization.
Oficina de Campo de
la Frontera México - Estados Unidos de la
Organización Panamericana de la Salud,
Oficina Regional de la
Organización Mundial de la Salud.
©
Copyright 1998-1999, PAHO El Paso