关于checkbox 那为高手看看！谢谢！

[lawdoor]

<tr bgcolor="#E7E7E7">
<td height="20" align="center">隶 属 组</td>
<td height="20" colspan="3">
<%
dim a,b,i,cc,rs1,checked
set rs1 = server.CreateObject("adodb.recordset")
sql="select GROUP_ID,GROUP_NAME from USER_GROUP order by group_id desc"
rs1.open sql,conn
if rs1.eof then
Response.Write "<option value='""'>请先建立组</option>"
else
a=rs("GROUP_ID")
a=split(a,",")
for i=lbound(a) to ubound(a)
while not rs1.eof
%>
<input type="checkbox" name="GROUP_ID" value="<%=rs1("GROUP_ID")%>"<% if cint(a(i))=cint(rs1("GROUP_ID")) then response.write "checked" %>> <% = rs1("GROUP_NAME")%>
<%
rs1.movenext
wend
next
end if
rs1.close
set rs1 = nothing

%>

程序是这样的：
一条记录可以同属于不同组，在from页面已经提交到字段group_id中，值为1，2，3，4.....现在是编辑该条信息，我想让原来提交时选种的组在编辑页面显示打钩,没有选种的保持原来的状态，但是现在上面的代码总是让记录循环很多次，这个问题该怎么解决！·？