<% set rsBoard = Server.CreateObject("ADODB.Recordset") rsBoard.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("/_db/ChiarinoBoard07.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 %>
| Messaggio da: <% = rsBoard("Autore") %> | inviato il <% = rsBoard("DataOra") %> |
| Oggetto: <% = rsBoard("Oggetto") %> | |
| <% = rsBoard.Fields.Item("Testo").Value %> | |
| " class="testo">Cancella commento | " class="testo">Modifica Commento | <% end if %>|
<% rsBoard.movenext Wend end if rsBoard.close set rsBoard = nothing %>