%SQLs = "Select * from offerte where checked = true" Set rs = conn.execute(SQLs) 'Dim numeroinserite numeroinserite = 0 Do while Not rs.Eof numeroinserite = numeroinserite + 1 rs.movenext Loop %>