<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/pagine.mdb") ) Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM pagine WHERE pagina = 'gruppi'" Rs.Open sql, Conn, 1, 3 If Rs.Eof then response.write "Sezione vuota" else testo = replace(Rs("testo"),"##","'") response.write testo end if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>

I ) La SeparazioneII ) La Lavanda dei piedi
III ) Gesł nell'orto dei GetsemaniIV ) L'arresto
V ) Caduta al Cedron VI ) Gesł dinanzi ad Hanna
VII ) La NegazioneVIII ) Gesł dinanzi ad Erode
IX ) La FlagellazioneX ) L'incoronazione di spine
XI ) Ecce HomoXII ) La Sentenza
XIII ) L'ascesa al calvarioXIV ) La Spogliazione
XV ) La sollevazione della CroceXVI ) Ferita al costato
XVII ) La DeposizioneXVIII ) Il Trasporto al sepolcro
XIX ) Il SepolcroXX ) L'Addolorata

--------------------------------------------------

 
 

powered by first web - segnalato su www.viveretrapani.it

Cookie policy | Privacy policy