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>