<% 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)
<% rsBoard.movenext Wend end if rsBoard.close set rsBoard = nothing %>
|
||||||||||