Set rs = server.createObject("ADODB.recordset")
Set rec = server.createObject("ADODB.recordset")
rs.open "select * from tablename",conn,3,1
do while not rs.eof
sql="update tablename set ........ where id="&rs("id")&""
set rec=conn.execute(sql)
rs.movenext
loop
rs.close
set rs=nothing