set rs3=server.CreateObject("ADODB.recordset")
SQL3="select * from TabSubVote where ID_Vote="&idtopic&" order by IDRef"
rs3.open SQL3,Con,1,1
RCC=rs3.recordcount
votepercen=0
i=0
while not rs3.eof
i=i+1
voteP= rs3("vote")
total = rs3("vote") + rs3("vote")
Votetotel1=Votetotel1+voteP
votemultiply= voteP
votedivilt=(votemultiply*100)/Votetotel1-RCC
<%
set rs4=server.CreateObject("ADODB.recordset")
SQL4="select * from TabVote where Publich='Yes'"
rs4.open SQL4,Con,1,1
while not rs4.eof
DateAdd1 = rs4("Dateadd")
topic = rs4("topic")
idtopic=rs4("IDRef")
Vote4=rs4("Vote")
%>
โค้ดประมาณนี้ค่ะ ไม่ทราบว่าเราต้องแก้ไฟล์นี้ป่าว
หรือว่าไม่ใช่ รบกวนผู้รู้ด้วยนะคะ ใช้ asp ขียนค่ะ