Recordset Problem

HCL Domino Domino Forum
1

Hello,

I have this code in a agent running on server:

Set cn=createobject(“ADODB.Connection”)

Set rs=createobject("ADODB.Recordset")

cn.Open coneccionstring

sql=“select * from centros_produccion”

Set rs=cn.execute(sql)

Do While rs.eof =False

If Isnull(rs.Fields("lista").value) Then

	valor$=""

Else

	 valor$=rs.Fields("lista").value				

End If

		

lista=lista + Trim$(valor$) + Chr(13) + Chr(10)

rs.movenext

Loop

this code works fine in 8.0 version and return 5 elements on lista, but on 8.5 version just the first, it seems like rs.movenext doesn’t work

Our server is windows 2003 server 64 bits

Thank you for you help

Nina.