<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../setup.asp"-->
<!--#include file="conn.asp"-->
<%vid=request("vid")%>
<html>
<head><link rel="stylesheet" type="text/css" href="../img/css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=site_name%></title>
</head>
<body>
<table style="border:1px solid #6699CC" width="641" border="0" align="center" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC">
  <tr valign="top"> 
    <td height="44" colspan="5" align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="46" align="center" bgcolor="#6699CC"> <font color="#FFFFFF"><strong>标题： 
            <%set rsv=server.createobject("ADODB.recordset")
sqlv="select * from vname where id="&cint(vid)
rsv.open sqlv,conn,1,1

set rs2=server.createobject("adodb.recordset")
rs2.open "select sum(vcount) as asum from vitem where vid="&cint(vid),conn,1,1
if not rs2.eof then
if rs2("asum")=0 then 
vsum=1
else
vsum=rs2("asum")
end if
end if
rs2.close
set rs2=nothing

 response.Write(rsv("title"))
 %>
            <br>
            </strong>(发起时间： 
            <% response.Write(rsv("vtime")) 
	 %>
            )</font></td>
        </tr>
      </table></td>
  </tr>
  <%
set rs=server.createobject("ADODB.recordset")
sql="select * from vitem where vid="&vid
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
%>
  <tr> 
    <td height="4" colspan="5"> <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"  background="../img/dline.gif"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width="60" height="20">选项 
      <% =i %>
      ：</td>
    <td><%=rs("vtitle")%></td>
    <td width="190" align="left"><img src="bar1.gif" alt="图例" width="<%=(rs("vcount")/vsum)*100%>" height="13"></td>
    <td width="37"><%=rs("vcount")%></td>
    <td width="80" align="center"> 
      <%
dim disbf
disbf=formatnumber((rs("vcount")/vsum)*100,2)
if disbf<=0 then
response.write "0.00"
else
response.write disbf
end if%>
      % </td>
  </tr>
  <%rs.movenext
loop
rs.close %>
</table>




<table width="469" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
      <td colspan="5" align="center"></td>
    </tr>
    <tr>
      <td width="76"></td>
      <td width="139" align="left">&nbsp;</td>
      <td width="145" align="left">
      </td>
      <td width="45" align="left">&nbsp;</td>
      <td width="32" align="left">
</td>
    </tr>
    <tr>
      <td colspan="5" align="center"></td>
    </tr>
  </table>
<% rsv.close
set rsv=nothing%>
<br>
<center>
  <img src="../img/dot02.gif" width="7" height="7" border="0"> 
  <a href="viewvote_gue.asp" class="xiahua">参与其他投票</a>
   &nbsp;

  <img src="../img/dot02.gif" width="7" height="7" border="0"> <a href="toupiao.asp?vid=<%=vid%>" class="xiahua">继续本投票</a> 
</center></body>
<% conn.close %>
</html>
