小弟写了一个程序但调试有一点问题，请各位大虾指点？可能你也会并到这样的问题

[rjjjhsjy]

小弟写了一个小程序网上测试，此试题有多选和单选，只有单选时程序可以按照下列程序执行，并从数据库中

提取答案，但有多选时，程序提取答案很乱。
例如 只有单选 abcd
都有时; abcdc,bd,dc,a
都有时正确应是：abcd,cb,dd,cadim score
sql="select * from daan"
Set rs = conn.Execute( sql )
ycorrect=0
rsCount=0
Do while not rs.eof
rsCount=rsCount + 1
if Request.Form(rsCount)=rs("单选") then
ycorrect=ycorrect + 1
end if
rs.movenext
loop
rs.movefirst
rc=0
yc=0
Do while not rs.eof
rc=rc + 1
if Request.Form(rc)=rs("多选") then
yc=yc + 1
end if
rs.movenext
loop
Response.Write "<br> 你的答案："
for i=1 to Request.Form.Count - 1
Response.Write Request.Form(i)
next
score=int((ycorrect+yc)/(rscount+rc)*100)