<% OPTION EXPLICIT Response.Buffer = True %> <% 'Lets get the current poll... Dim sTitle Dim sQuestion Dim vAnswers(19) Dim vCount(19) 'Get active one... PollMentor_GetPollInfo -1, sTitle, sQuestion, vAnswers, vCount %> 香港明星籃球賽 2007

香港明星籃球賽 2007
 

<%=FAQ_GetAd( 1 )%>


<%=sQuestion%>


<% Dim nCount Dim nDef Dim nTotal nTotal = 0 For nCount=1 To 19 If vAnswers(nCount) <> "" Then nTotal = nTotal + vCount(nCount) %> checked<%End If%> name="R1"><%=vAnswers(nCount)%>
<% nDef = True End If Next %>

 


觀看投票結果

總共有 <%=nTotal%> 人投了票

 



<%=FAQ_GetAd( 3 )%>
<%=FAQ_GetAd( 2 )%>