Certo.
codice:
<div class="news"> 
<h4>Ultime <span class="red">Notizie!</span></h4>
 <% 
dim strCode 
strCode="innovatel" 
dim intVolta 
intVolta="0" 
Set Conn=Server.CreateObject("ADODB.Connection") 
strConn="driver={Microsoft Access Driver (*.mdb)}; " 
strConn=strConn & " DBQ=" & Server.MapPath("/..../../....mdb") 
strConn=strConn & ";pwd=" & 
strCode Conn.Open strConn 
sql = "SELECT top 4 * FROM .... ORDER BY Id DESC" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, conn ,3,3 
do while not (rs.eof) 
if intVolta="1" then
 intVolta="0" 
else 
intVolta="1" 
end if 
%> 
[img]<%=Rs(5)%>[/img] 
<%=Rs(2)%>
 <div class="Data2"> <%=FormatDateTime(Rs(3),vbLongDate)%> 
</div> 

<%=Rs(1)%></p>
 <% 
Rs.MoveNext
 Loop
rs.Close 
set rs = Nothing 
conn.Close 
set conn = Nothing 
%>
 </div>