<% set rsBoard = Server.CreateObject("ADODB.Recordset") rsBoard.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("/_db/ChiarinoBoard.mdb") rsBoard.Source = "Select * from TabMessaggi WHERE Pubblica = 'yes' ORDER BY ID desc" rsBoard.Open() %> "Voi mi cercherete e mi troverete, perché mi cercherete con tutto il vostro cuore." (Geremia 29:13)

Questo spazio è a disposizione di chiunque voglia esprimere le sue impressioni su tutto ciò che riguarda questa Manifestazione e condividere i suoi commenti con chi visita questo sito.

<% if rsBoard.EOF and rsBoard.BOF then response.write("Nessun messaggio inserito") else While not rsBoard.EOF if Session("Loggaterrimo") = true then %> " class="testo">Cancella commento | " class="testo">Modifica Commento <% end if %>

Messaggio da: <% = rsBoard("Autore") %> inviato il <% = rsBoard("DataOra") %>
Oggetto: <% = rsBoard("Oggetto") %>
<% = rsBoard.Fields.Item("Testo").Value %>
<% rsBoard.movenext Wend end if rsBoard.close set rsBoard = nothing %>

<% if Session("Loggaterrimo") = true then %> Aggiungi news <% end if %>  

<% set rsNotizie = Server.CreateObject("ADODB.RecordSet") rsNotizie.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorialcimurri; option=3; port=3306;" rsNotizie.Source = "Select * from tabnews order by -ID LIMIT 10" rsNotizie.CursorLocation = 3 rsNotizie.Open() while not rsNotizie.EOF %>

"><% =rsNotizie("Titolo") %> - <% = rsNotizie("DataG")%> <% = mesi(rsNotizie("DataM"))%> <%=rsNotizie("DataA")%> <% if Session("Loggaterrimo") = true then %> &act=edit">Mod. | &act=canc">Canc. <% end if %>

<% rsNotizie.MoveNext() wend %>
Tutte le notizie


L'itinerario

Partirà dalla sede del main sponsor Bioera, accanto al quartier generale di Mariella Burani Fashion Group , alle porte di Cavriago e si snoderà poi con un interessante circuito lungo i colli matildici... continua

www.bioera.it www.deutsche-bank.it www.parmigiano-reggiano.it