Ciao teorema55 c'è anche il loop questo è il code al completo:

codice:
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where OCCASIONI='SI'"), conn, 3, 3
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1
Response.Write rec.fields("Articoli")
rec.moveNext
Loop
end if
rec.close
set rec= nothing