如何赋值？

info表中五个字段分别是：id 分组 时间 有效 得分：
                 1 a组 0:18:15.4 √ 0  
                 2 a组 0:19:15.4 √  2
                 3 a组 0:17:15.4  Ⅹ 13


求各组别的得分？得分规则是：字段有效为√时，时间最少第一名为0，第二名为2其余是3、4、、5、6、7等依次加1.如果有效字段为ⅹ，则得分为该组所有人数加10分。
我想首先是按各组别、时间、有效升序排列
sqla = selcet * from info where 有效=√ group by 分组 order by 时间 asc
rs.open sqla,conn,1,3
rs1.close:set rs1 = nothing
再计算各组人数
set rs1=server.createobject("adodb.recordset")
sqlb = selcet count（*）from info group by 分组
后面如何循环插入得分？