Originariamente inviato da techno
Questo è il code con (1, 1):
Set rec= server.createobject("ADODB.Recordset")
rec.Open ("Select * From magazzino Where Occasioni='SI'"), conn, 1, 1
if rec.recordcount> 0 then
Dim ciclo
ciclo= 0
Do While Not (ciclo= 5) And Not (rec.eof)
ciclo= ciclo + 1

Questo è con (3, 3)
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


codice:
Set rec= server.createobject("ADODB.Recordset") 
rec.Open "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

cosi' non hai provato ?