<% '----取得目前票數 dim ChoiceNum(5),TotalNum, sql, rs, LoopFlag sql = "select VoteNum from AC_20061016_Vote_God_Choice" set rs = GetRecordset(sql) LoopFlag = 1 TotalNum = 0 Do until rs.EOF ChoiceNum(LoopFlag) = rs("VoteNum") TotalNum = TotalNum + ChoiceNum(LoopFlag) rs.movenext LoopFlag = LoopFlag + 1 Loop rs.close set rs = nothing '---把票數換成% if TotalNum > 0 then For LoopFlag = 1 to 5 ChoiceNum(LoopFlag) = Int(ChoiceNum(LoopFlag)*100/TotalNum) Next end if %>

	侯佩岑 (<%=CStr(ChoiceNum(1))%>%) 蔡依林 (<%=CStr(ChoiceNum(2))%>%) 林志玲 (<%=CStr(ChoiceNum(3))%>%) 李玟 (<%=CStr(ChoiceNum(4))%>%) 蕭亞軒 (<%=CStr(ChoiceNum(5))%>%)