怎的一次获取整个记录的全部ID

怎样一次获取整个记录的全部ID
<% set rs= server.createobject("adodb.recordset")
      rs.open "select *  from ss where id is not null ",conn,1,3 %>

假设上面rs有10条记录,想定义一个值a,一次取得所有的id值,以字符串的形式排列

a="id1,id2,id3,id4,id5,id6,id7,id8,id9,id10"





------解决思路----------------------
a=""
while not rs.eof
  a=a&","&rs("id键名称")
  rs.movenext
wend
if a<>"" then a=right(a,len(a)-1)
response.write a