<% Set cn = Server.CreateObject("ADODB.Connection") cn.Open connStr %> Nuovo LANCIA

Clicca qui per aprire il sito LANCIA ufficiale in una nuova finestra
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 %>