%@LANGUAGE="VBSCRIPT"%> <% Dim rassegna__MMColParam rassegna__MMColParam = "vangelo per tutti" If (Request("MM_EmptyValue") <> "") Then rassegna__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rassegna Dim rassegna_numRows Set rassegna = Server.CreateObject("ADODB.Recordset") rassegna.ActiveConnection = MM_amici_STRING rassegna.Source = "SELECT * FROM rassegnastampa WHERE parolechiave LIKE '%" + Replace(rassegna__MMColParam, "'", "''") + "%'" rassegna.CursorType = 0 rassegna.CursorLocation = 2 rassegna.LockType = 1 rassegna.Open() rassegna_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 rassegna_numRows = rassegna_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rassegna_total Dim rassegna_first Dim rassegna_last ' set the record count rassegna_total = rassegna.RecordCount ' set the number of rows displayed on this page If (rassegna_numRows < 0) Then rassegna_numRows = rassegna_total Elseif (rassegna_numRows = 0) Then rassegna_numRows = 1 End If ' set the first and last displayed record rassegna_first = 1 rassegna_last = rassegna_first + rassegna_numRows - 1 ' if we have the correct record count, check the other stats If (rassegna_total <> -1) Then If (rassegna_first > rassegna_total) Then rassegna_first = rassegna_total End If If (rassegna_last > rassegna_total) Then rassegna_last = rassegna_total End If If (rassegna_numRows > rassegna_total) Then rassegna_numRows = rassegna_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rassegna MM_rsCount = rassegna_total MM_size = rassegna_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record rassegna_first = MM_offset + 1 rassegna_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (rassegna_first > MM_rsCount) Then rassegna_first = MM_rsCount End If If (rassegna_last > MM_rsCount) Then rassegna_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %>
In occasione della pubblicazione del volume
Comunità di Sant'Egidio
Il Vangelo per tutti
I disabili mentali e la domenica nella comunità ecclesiale Prefazione di Gianfranco Ravasi
Gli Amici organizzano una serie di iniziative in varie città italiane:
Rassegna stampa
<% While ((Repeat1__numRows <> 0) AND (NOT rassegna.EOF)) %>
"><%=(rassegna.Fields.Item("titolo").Value)%>
<%=(rassegna.Fields.Item("testata").Value)%>
<%=(rassegna.Fields.Item("data").Value)%>
Pesaro
La disabilità come risorsa educativa:
la catechesi con le persone diversamente abili
Riflessioni e progettazioni per la ministerialità del catechista/animatore
Palazzo Lazzarini - sala S.Terenzio
ore 18.15
18 febbraio 2008
Roma
Parrocchia di Santa Galla
3 dicembre 2007
Programma
Napoli
2 dicembre
In occasione della giornata internazionale delle persone con disabilità, il vescovo di Napoli, card. Crescenzio Sepe, presiederà una liturgia durante la quale alcuni disabili riceveranno il sacramento della Confermazione.
La liturgia sarà animata da Gli Amici
Piacenza
Conferenza
“Tutti i figli di Dio hanno le ali”
La comunità cristiana e la dimensione spirituale delle persone disabili.
5 giugno 2007
Calopezzati
Presentazione del volume
Il Vangelo per tutti
1 giugno 2007
Vasto Marina (CH)
Incontro Formativo
Catechesi e disabilità
29 maggio 2007
Liturgia con Gli Amici
presso la parrocchia di Gesù
Maestro a Fonte Nuova (RM)
26 maggio 2007
Casalnoceto (AL)
Presentazione del volume
Il Vangelo per tutti
19 maggio 2007
16 maggio 2007
Liturgia con Gli Amici presso il centro Vojta
Parrocchia di San Leonardo Murialdo,
Via Salvatore Pincherle, 144
Roma
Il Vangelo per tutti, anche per i disabili in istituto.
12 maggio 2007
Liturgia con Gli Amici presso l’Istituto San Giovanni di Dio- Fatebenefratelli di Genzano (RM)
Sabato 12 maggio, alle ore 10.30 Gli Amici animeranno una liturgia presso l’Istituto San Giovanni di Dio, via Fatebenefratelli 2, Genzano (RM). L'istituto ospita più di duecento disabili. Alla liturgia parteciperanno anche i disabili che frequentano il centro diurno ed i loro familiari
Albano
24 febbraio 2007
Nell'ambito del Seminario di studio organizzato dalla diocesi di Albano, "Fragilità da Accomapgnare:dall'Accoglienza ad un itinerario di Speranza", Gli Amici presenteranno il volume Il Vangelo per tutti.
Orosei
22 febbraio 2007
Gli Amici tengono un incontro di formazione del clero della diocesi di Nuoro sulla catechesi alle persone disabili
Prima Porta (Roma)
12 dicembre 2006
Programma
Roma
Parrocchia di San Leone I
17 novembre 2006
Programma
Chiavari
16 novembre 2006
Programma
Roma
Parrocchia di San Frumenzio
12 novembre 2006
Avellino
1 ottobre 2006
Programma
Catania
15 settembre 2006
Programma
Si è tenuta a Catania, nella giornata conclusiva del convegno dei catechisti dell'Arcidiocesi, alla presenza di S.E. Salvatore Gristina, la presentazione del libro "Il vangelo per tutti". Erano presenti più di trecento catechisti che hanno seguito con interesse partecipando con numerosi interventi.
Acireale
14 settembre 2006
Programma
Salerno
28 giugno 2006
Programma
Il Vangelo per tutti, anche per i disabili in istituto.
"Gli Amici" - Comunità di Sant'Egidio e la Parrocchia di "Gesù Maestro" Giovedì 15 giugno 2006 alle ore 11.00 celebrano una solenne e gioiosa liturgia eucaristica per il tempo di Pentecoste nella Parrocchia di "Gesù Maestro" a Fonte Nuova (RM).
Parteciperanno i disabili dell'istituto "Nomentana Hospital" e dell'istituto di Villa Alba di Fonte Nuova, i disabili della Casa Famiglia l'Aquilone, del centro diurno "Il Pungiglione", dell'"Associazione Famiglie con Disabili" di Monterotondo, della Casa Famiglia "Il Sicomoro" di Palombara Sabina.
Parrocchia "Gesù Maestro"Via Nomentana, 580 - Fonte Nuova
Firenze
27 maggio 2006
Programma
Ancona
11 maggio 2006
Programma
Grottaminarda
10 maggio 2006
Programma
Genova
8 maggio 2006
Programma
Novara
28 maggio 2006
Programma
Roma
Mercoledì 17 maggio 2006
ore 10,30
liturgia con i disabili nella parrocchia di SAN LEONARDO MURIALDO
Via Salvatore Pincherle 144
Roma
Domenica 28 maggio 2006
ore 11.15
liturgia con i disabili nella parrocchia di San Giovanni Leonardi
Via della Cicogna 2
Il 24 marzo, nell'ambito di un incontro organizzato dall’Ufficio Catechistico Diocesano di Terni, Paola Scarcella e Daniela Parisini de "Gli Amici" hanno tenuto una conferenza dal titolo “La catechesi con le persone disabili” alla quale hanno partecipato circa 100 persone.
Il 18 marzo il volume "Il Vangelo per tutti" è stato presentato a Laterza dal vescovo di Castellaneta mons. Fragnelli
davanti ad una platea di più di duecento persone.
Roma
17 marzo 2006
Parrocchia di S.Marco al Laurentino
Roma
12 marzo 2006
Parrocchia di Sant'Agostino
Brindisi
23 febbraio 2006
Modica
5 febbraio 2006
Quartu S.Elena (CA)
16 gennaio 2006
Programma
Roma
3 dicembre 2005
Santa Maria in Trastevere
Programma