%@LANGUAGE="VBSCRIPT"%>
<%
set rsHome = Server.CreateObject("ADODB.Recordset")
rsHome.ActiveConnection = MM_connSsm_new_STRING
rsHome.Source = "SELECT * FROM home ORDER BY data DESC"
rsHome.CursorType = 0
rsHome.CursorLocation = 2
rsHome.LockType = 3
rsHome.Open()
rsHome_numRows = 0
Session("settimana") = (rsHome.Fields.Item("ID").Value)
Session("data") = (rsHome.Fields.Item("data").Value)
dim testo
testo = (rsHome.Fields.Item("testo").Value)
if testo <> "" then
testo = Replace ((rsHome.Fields.Item("testo").Value), VbCrLf, "
")
end if
dim testo_1
testo_1 = (rsHome.Fields.Item("testo_1").Value)
if testo_1 <> "" then
testo_1 = Replace ((rsHome.Fields.Item("testo_1").Value), VbCrLf, "
")
end if
dim testo_2
testo_2 = (rsHome.Fields.Item("testo_2").Value)
if testo_2 <> "" then
testo_2 = Replace ((rsHome.Fields.Item("testo_2").Value), VbCrLf, "
")
end if
dim testo_3
testo_3 = (rsHome.Fields.Item("testo_3").Value)
if testo_3 <> "" then
testo_3 = Replace ((rsHome.Fields.Item("testo_3").Value), VbCrLf, "
")
end if
dim testo_4
testo_4 = (rsHome.Fields.Item("testo_4").Value)
if testo_4 <> "" then
testo_4 = Replace ((rsHome.Fields.Item("testo_4").Value), VbCrLf, "
")
end if
%>
Parrocchia S. Silvestro e Martino - Caritas
|
|
|
 |
|
home |
contatti
 |
Viale Lazio, 19 - 20135
Milano - Tel. 02 55189340 - Tel./Fax. 02 55011903 - C.F. 08622820150
|
|
|
|
|
Contatti
Centro d'Ascolto
via A. Maffei 29 - tel. 0255012203
email:
martedì
ore 17.00 - 19.00
giovedì e sabato
ore 9.00 - 11.00
Gruppo Missionario
tutti i martedì dalle ore 18.15 alle ore 19.15
presso l'ufficio
della Caritas - Centro d'Ascolto.
via A. Maffei 29 - tel. 0255012203 |
|
|
|
|
|
<%
rsHome.Close()
%>