Microsoft VBScript 运行时错误 错误 '800a000d'

Microsoft VBScript 运行时错误 错误 '800a000d' 
类型不匹配: '[object]' 
/contact.asp，行 108

首先声明该.asp文件目的是统计问卷中各题目各选项所占百分比并用条形图显示出来 

<%
  dim label(6),avg(6),color(6) '定义分别存放选项、平均值、色号的三个数组
  label(1)="A.男"
  label(2)="B.女"
  avg(1)=0
  avg(2)=0
  color(1)="#FFFF00"
  color(2)="#FF0000"
  rs.open"select choose, count(choose) as [sum] from detail where qID='q1' group by choose"
  do while not rs.eof
    if rs("sum")=NULL then
      ave=0
    else ave=rs("sum")/counts*100
    end if