Codice PHP:
<%
Strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("circolari.mdb"
set Conn=Server.CreateObject("ADODB.Connection"
Conn.open strconn 
Squeryt
="SELECT  oggetto, data from circolare order by data desc  ;"
set rs=server.createobject("adodb.recordset"
rs.open Squeryt,Conn
MyString
=""
Do until Rs.eof=True
    MyString
=MyString " | " rs("oggetto")
    
rs.movenext 
loop
%>
<
table>
    <
tr>
        <
td>
            <
MARQUEE behavior="scroll" direction="up" scrollamount="2" scrolldelay="0" width="307" height="50" ><% MyString %></marquee>
        </
td>
    </
tr>
</
table