平凉崆峒区小卖部转让:ASP编程问题！

如何完善以下代码：
<!--#include file=conn.asp-->
<%
dim rs
dim sql
dim total,str1,a1
set rs=server.createobject("adodb.recordset")
sql="select top 1 alluser from diaocha where 1=1 order by alluser desc"
rs.open sql,conn,1,3
total=rs("alluser")
set sql=nothing
rs.close
str1="select answer1,count(*) from diaocha where answer1 in ('A','B') group by answer1"
rs.open str1,conn,1,3
a1=rs("数量")
set str1=nothing
rs.close
%>

<p class="style1"><span class="style2">总</span>参与调查<span class="style2">人数:</span><%=total%></p>
<p class="style1">问题<span class="style2">一</span>的回答情况：</p>
<p class="style1">选择A：<%=a1%></p>
<p class="style1">选择B：</p>
<p class="style1">问题<span class="style2">二</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">问题<span class="style2">三</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">问题<span class="style2">四</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">问题<span class="style2">五</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">问题<span class="style2">六</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">问题<span class="style2">七</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">问题<span class="style2">八</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">问题<span class="style2">九</span>的回答情况：</p>
<p class="style1">选择A：</p>
<p class="style1">选择B：</p>
<p class="style1">选择C：</p>
<p class="style1">选择D：</p>
<p class="style1">选择E：</p>
<p class="style1">选择F：</p>
<p class="style1">选择G：</p>
</body>
统计数据库中答案的数量并显示出来。