<% Set cn = Server.CreateObject("ADODB.Connection") cn.Open connStr %> Nuovo LANCIA
NEWS E PROMOZIONI | ADMIN <% Set rsNegozi = Server.CreateObject("ADODB.Recordset") myquery = "SELECT * FROM Promozioni ORDER BY data DESC" rsNegozi.Open myquery, cn x= 0 While NOT (rsNegozi.EOF or x = 6) %>
<%=rsNegozi("data")%>
<%=rsNegozi("titolo")%>

<% x = x+1 rsNegozi.MoveNext() Wend %>