tp_flag_all=rs("调查项目"&i)+tp_flag_all

    next%>

    <tr>

        <td width=100% height=30><b><%=rs("调查题目")%></b></td>

    </tr>      

    <%

    tp_flag=split(server.htmlencode(replace(trim(rs("调查内容")),chr(10),"")),chr(13))

    for i=0 to ubound(tp_flag)

    if trim(tp_flag(i))<>"" then

    tp_flag_count=tp_flag_count+1

    if tp_flag_all=0 then

        t=0

    else

        t=rs("调查项目"&tp_flag_count)*100/tp_flag_all

    end if%> 

    <tr>

        <td align=left valign=top height=10>

            <table width=100% cellpadding="0" cellspacing="0" border=0>

                <tr>

                    <td height=8>&nbsp;[<%=xuanxiang(tp_flag_count)%>]、<%=tp_flag(i)%></td>

                    <!--xuanxiang()函数在title.asp中已经定义，把数字转变为字母-->

                    <td width=300 align=left bgcolor="#cccccc" height=8>

                        <table background="images/bar3.gif" width=<%=int(t)%>% cellpadding="0" cellspacing="0" border=0>

                        <!--其中bar3.gif图片为显示柱型条-->

                            <tr>

                                <td height=8></td>

                            </tr>

                        </table>

                    </td>

                    <td width=30>&nbsp;<%=rs("调查项目"&tp_flag_count)%>票</td>

                </tr>

            </table>

        </td>

    </tr>

    <tr>