<% Set cn = Server.CreateObject("ADODB.Connection") cn.Open connStr %> News e Promozioni
INDICE NEWS E PROMOZIONI

<% Set rsNegozi = Server.CreateObject("ADODB.Recordset") myquery = "SELECT * FROM Promozioni ORDER BY data DESC" rsNegozi.Open myquery, cn While (NOT rsNegozi.EOF) %> <% rsNegozi.MoveNext() Wend %>