<%@LANGUAGE="VBSCRIPT"%> <% Dim rassegna__MMColParam rassegna__MMColParam = "quattro venti" If (Request("MM_EmptyValue") <> "") Then rassegna__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rassegna Dim rassegna_cmd Dim rassegna_numRows Set rassegna_cmd = Server.CreateObject ("ADODB.Command") rassegna_cmd.ActiveConnection = MM_amici_STRING rassegna_cmd.CommandText = "SELECT * FROM rassegnastampa WHERE parolechiave LIKE ? ORDER BY [data] DESC" rassegna_cmd.Prepared = true rassegna_cmd.Parameters.Append rassegna_cmd.CreateParameter("param1", 200, 1, 255, "%" + rassegna__MMColParam + "%") ' adVarChar Set rassegna = rassegna_cmd.Execute rassegna_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rassegna_numRows = rassegna_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** 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 %> Disabili mentali: amici senza limiti

Inaugurazione delle case amiche dei disabili

Le case amiche dei disabili
VISITA LE NOSTRE CASE

 

 

Giovedì 13 settembre 2007, le case amiche dei disabili sono state inaugurate alla presenza di:

 

Franca Donaggio, Sottosegretario Ministero della Solidarietà Sociale

 Raffaela Milano, Assessore Servizi Sociali Comune di Roma

 Fabio Bellini, Presidente Municipio XVI

Marco Impagliazzo, Presidente della Comunità di Sant'Egidio 

 

Rassegna stampa

 

<% While ((Repeat1__numRows <> 0) AND (NOT rassegna.EOF)) %> "><%=(rassegna.Fields.Item("data").Value)%> - <%=(rassegna.Fields.Item("titolo").Value)%> - <%=(rassegna.Fields.Item("testata").Value)%>

 <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rassegna.MoveNext() Wend %>

Hai stampato una pagina del sito www.santegidio.org

<% rassegna.Close() Set rassegna = Nothing %>