<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/Celebr.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Celebr_STRING
Recordset1.Source = "SELECT * FROM file ORDER BY ID DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Liturgie della Domenica</title>
<style type="text/css">
<!--
.Stile1 {font-family: Arial, Helvetica, sans-serif}
.Stile2 {font-family: "ms Reference Sans Serif", Arial, tahoma}
.Stile2 { color: #FFFFFF;
font-size: 24px;
}
body {
background-color: #DDA0FE;
}
.Stile3 {font-family: "ms Reference Sans Serif", Arial, tahoma; color: #FFFFFF; }
.Stile4 {font-size: 12px}
-->
</style>
</head>
<body>
<p align="center" class="Stile1 Stile2">In questa sezione sono pubblicati i foglietti delle Celebrazioni e le Omelie del Parroco.</p>
<p class="Stile3"> </p>
<p class="Stile3"> </p>
<p class="Stile3"> </p>
<p class="Stile3"> </p>
<p class="Stile3"> </p>
<p class="Stile3"> </p>
<div id="Layer1" style="position:absolute; left:0px; top:2px; width:651px; height:347px; z-index:1">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="650" height="350">
<param name="movie" value="../Immagini%20pulsanti%20stili%20flash/Menu%20esagono%20piccolo.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="../Immagini%20pulsanti%20stili%20flash/Menu%20esagono%20piccolo.swf" width="650" height="350" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</div>
<p class="Stile3"> </p>
<p class="Stile3"><span class="Stile2"><span class="Stile4"><img src="Download.JPG" alt="Scarica il foglietto in formato doc" width="20" height="20" border="0"> = scarica il foglietto in formato .doc</span></span></p>
<p> </p>
<table width="819" border="1">
<tr>
<th width="654" bordercolor="#FF0000"><div align="left"><span class="Stile1">Giorno</span></div></th>
<th width="77" bordercolor="#FF0000"><div align="center" class="Stile1"><span class="Stile1">Scarica</span>!</div></th>
<th width="66" bordercolor="#FF0000"><span class="Stile1">Omelia</span></th>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td bordercolor="#FF0000"><%=(Recordset1.Fields.Item("Giorno").Value)%></td>
<td bordercolor="#FF0000"><div align="center" class="Stile1"><span class="Stile1"><a href="../public/<%=(Recordset1.Fields.Item("NomeFile").Value)%>"><img src="Download.JPG" alt="scarica" width="20" height="20" border="0"></a></span></div></td>
<td bordercolor="#FF0000"><span class="Stile1"><a href="OmeliaDinamica.asp?id=<%=id%>" target="_blank"><%=(Recordset1.Fields.Item("Scelta").Value)%></a></span></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>