Hola
Prueba así
Código asp:
Ver originalsql2 = "SELECT * FROM ARTICULOS WHERE (CodTipo=" & tipo & ")"
set rec2 = con.execute(sql2)
posicion=0
while posicion > cuenta and not rec2.eof ' mientra posicion sea menor que cuenta
posicion=posicion+1
rec2.movenext
wend
Suerte