Video e Photo Gallery

Benvenuti nell'archivio video della Comunità di Sant'Egidio. E' possibile scegliere il video da vedere dalla colonna di destra oppure dalla documentazione situata in basso.

Welcome in the video archive of the Community of Sant'Egidio. It's possible to choose a video file from the right column or from the speech archive below.

<%=titolook%>

Ultime Clip inserite

<% 'Inizializziamo il Parser MS XML... Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False 'Carica il file XML strFile = Server.MapPath("elencovideo_it.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&"" & vbcrlf) else end if Set elencovideo = AllItems(I).selectNodes("video") 'ul 'Response.Write("

" & vbcrlf) For J = 0 to (elencovideo.Length-1) Response.Write("" & vbcrlf&"" & vbcrlf&"" & vbcrlf) Set Title = nothing Next Set elencovideo = Nothing Next %>

" & vbcrlf) Response.Write("

"&_ AllItems(I).GetAttribute("id") & "

" & vbcrlf &"

" & vbcrlf&_ "

" & vbcrlf) Set Title = elencovideo(J).selectNodes("titolo") 'apre link Response.Write("" & vbcrlf) 'intestazione Response.Write("

"& vbcrlf &_ "

" & AllItems(I).GetAttribute("id") & vbcrlf&"

"& vbcrlf) ' immagine Response.Write(" "& Title(0).text& "

" & vbcrlf &_ elencovideo(J).getAttribute("data")) Response.Write(vbcrlf& "

"& vbcrlf) 'titolo Response.Write(Title(0).text) Response.Write("

"& vbcrlf) Response.Write(elencovideo(J).getAttribute("durata") & vbcrlf& "

"& vbcrlf) Response.Write("") Response.Write("

") Response.Write( vbcrlf&"

Documentazione video

I video disponibili degli interventi pronunciati durante l'Incontro Internazionale: PER UN MONDO SENZA VIOLENZA - Religioni e Culture in dialogo. Napoli 21-23 ottobre

Video disponibili in ordine di relatore

<% 'Inizializziamo il Parser MS XML... Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False 'Carica il file XML strFile = Server.MapPath("elencodocumenti.xml") objXML.Load (strFile) Set AllItems = objXML.selectNodes("//folder") For I = 0 to (AllItems.Length - 1) Response.Write("

"&_ AllItems(I).GetAttribute("id") & "

" & vbcrlf) Set elencovideo = AllItems(I).selectNodes("video") 'ul Response.Write("

" & vbcrlf) Set Title = elencovideo(J).selectNodes("titolo") Set Relatore = elencovideo(J).selectNodes("intervento") Set Luogo = elencovideo(J).selectNodes("luogo") Response.Write("
"& Relatore(0).text & "

") Response.Write("") 'Response.Write("") Response.Write(Title(0).text &"
"&_ "
" & elencovideo(J).getAttribute("durata") & "
" & elencovideo(J).getAttribute("data") & "
" & Luogo(0).text &"

" & vbcrlf) Set elencovideo = Nothing Next %>

Documentazione Fotografica

<% 'Inizializziamo il Parser MS XML... Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False 'Carica il file XML strFile = Server.MapPath("elencofotografie.xml") objXML.Load (strFile) Set AllItems = objXML.selectNodes("//folder") For I = 0 to (AllItems.Length - 1) Response.Write("

"&_ AllItems(I).GetAttribute("id") & "

" & vbcrlf) Set elencovideo = AllItems(I).selectNodes("video") 'ul Response.Write("

" & vbcrlf) Set Title = elencovideo(J).selectNodes("titolo") Set Relatore = elencovideo(J).selectNodes("intervento") Set Luogo = elencovideo(J).selectNodes("luogo") 'Response.Write("
"& Relatore(0).text & "

") Response.Write("") 'Response.Write("") Response.Write(Title(0).text &"
"&_ "
" & elencovideo(J).getAttribute("durata") & "
" & elencovideo(J).getAttribute("data") & "
" & Luogo(0).text &"

" & vbcrlf) Set elencovideo = Nothing Next %>