<%
lang = request.QueryString("lang")
If lang = "it" Then
banner = "top_it"
copy = "Comunità di Sant'Egidio"
titolo = "40° Anniversario"
saluto = ""
video = "Videonews di un anno"
comunita = "La Comunità di Sant'Egidio"
comunita1 = "Come è nata"
comunita2 = "La preghiera"
comunita3 = "Comunicare il Vangelo"
comunita4 = "Comunità senza frontiere"
comunita5 = "Amicizia con i poveri"
comunita6 = "Il servizio alla pace"
rassegna = "Rassegna Stampa"
testi = "Testi"
galleria = "Gallerie di immagini"
testi2 = "Messaggi"
End If
If lang = "en" Then
banner = "top_en"
copy = "Community of Sant'Egidio"
titolo = "40th Anniversary"
saluto = ""
video = "Videonews"
comunita = "The Community of Sant'Egidio"
comunita1 = "Its origin"
comunita2 = "Prayer"
comunita3 = "Communicating the Gospel"
comunita4 = "Community without borders or walls"
comunita5 = "Friendship with poor people"
comunita6 = "Service to Peace: Making the World More Human"
rassegna = "Press Review"
testi = "Texts"
galleria = "Images album"
testi2 = "Messages"
End If
If lang = "cast" Then
banner = "top_cast"
copy = "Comunidad de Sant'Egidio"
titolo = "40a Aniversario"
saluto = ""
video = "Videonews"
comunita = "La Comunidad de Sant'Egidio"
comunita1 = "Como nació"
comunita2 = "La oración"
comunita3 = "Comunicar el Evangelio"
comunita4 = "Comunidad sin fronteras y muros"
comunita5 = "Amistad con los pobres"
comunita6 = "El servicio a la paz y a la humanización del mundo"
rassegna = "Selección de prensa"
testi = "Textos"
galleria = "Galería de Imágenes"
testi2 = "Mensajes"
End If
If lang = "fr" Then
banner = "top_fr"
copy = "Communauté de Sant'Egidio"
titolo = "40ème anniversaire"
saluto = ""
video = "Les videonews d’une année"
comunita = "La Communauté de Sant'Egidio"
comunita1 = "Comment elle est née"
comunita2 = "La prière"
comunita3 = "Communiquer l'Évangile"
comunita4 = "Communauté sans frontières et sans murs"
comunita5 = "Amitié avec les pauvres"
comunita6 = "Le service pour la paix et l'humanisation du monde"
rassegna = "Revue de presse"
testi = "Textes"
galleria = "Galerie d’images"
testi2 = "Messages"
End If
If lang = "de" Then
banner = "top_de"
copy = "Gemeinschaft Sant'Egidio"
titolo = "40. Gründungstag"
saluto = ""
video = "Videos eines Jahres"
comunita = "Die Gemeinschaft Sant'Egidio"
comunita1 = "Entstehung"
comunita2 = "Das Gebet"
comunita3 = "Das Evangelium weitergeben"
comunita4 = "Eine Gemeinschaft ohne Grenzen und Mauern"
comunita5 = "Freundschaft mit den Armen"
comunita6 = "Der Dienst am Frieden und an der Humanisierung der Welt"
rassegna = "Pressespiegel"
testi = "Texte"
galleria = "Photoalben"
testi2 = "Anzeigen"
End If
If lang = "pt" Then
banner = "top_pt"
copy = "Comunidade de Sant'Egidio"
titolo = "Quadrigesimo Aniversario"
saluto = ""
video = "Videonews"
comunita = "A Comunidade de Sant'Egidio"
comunita1 = "Como nasceu"
comunita2 = "A oração"
comunita3 = "Comunicar o Evangelho"
comunita4 = "Comunidade sem fronteiras e sem muros"
comunita5 = "Amizade com os pobres"
comunita6 = "O serviço à paz e à humanização do Mundo"
rassegna = "Recortes de imprensa"
testi = "Textos"
galleria = "Galeria das imagens"
testi2 = "Mensagens"
End If
If lang = "" Then
lang = "it"
banner = "top_it"
copy = "Comunità di Sant'Egidio"
titolo = "40° Anniversario"
saluto = ""
video = "Videonews di un anno"
comunita = "La Comunità di Sant'Egidio"
comunita1 = "Come è nata"
comunita2 = "La preghiera"
comunita3 = "Comunicare il Vangelo"
comunita4 = "Comunità senza frontiere"
comunita5 = "Amicizia con i poveri"
comunita6 = "Il servizio alla pace"
rassegna = "Rassegna Stampa"
testi = "Testi"
galleria = "Gallerie di immagini"
testi2 = "Messaggi"
End If
%>
">
<%=copy & " - " & titolo%>
<%
'Inizializziamo il Parser MS XML...
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
'Carica il file XML
strFile = Server.MapPath("../../../sezioni/elencovideo_" & lang & ".xml")
objXML.Load (strFile)
Set AllItems = objXML.selectNodes("//folder")
For I = 0 to (AllItems.Length - 1)
'se ce' il nome della cartella crea una riga altrimenti no
if AllItems(I).GetAttribute("id") <> "" then
Response.Write("
" & vbcrlf &"
" & vbcrlf)
Response.Write("
"&_
AllItems(I).GetAttribute("id") & "
" & vbcrlf &"
" & vbcrlf&"
" & vbcrlf)
else
end if
Set elencovideo = AllItems(I).selectNodes("video")
'ul
'Response.Write("
" & vbcrlf)
For J = 0 to (elencovideo.Length-1)
Response.Write("
<%=galleria%>