<% sql="select * from anketSekme where anket="&veriler1("id")&" order by id;" set veriler=mysql_baglanti.execute(sql) if not veriler.eof then say2=1 %> <% oylamaSayisi=0 veriler.movefirst do while not veriler.eof %> <% say2=say2+1 veriler.movenext loop else %> <% end if %>

	Sıra		Sekme	Oylamalar	Yüzdeler
">	<%=say2%>	/flag.gif" width="24"/>	<%=veriler("baslik")%>	<% if veriler1("yonetim_kurulu")=1 then sqla="select * from oylamalar where anket="&veriler1("id")&" and sekme="&veriler("id")&";" set verilera=mysql_baglanti.execute(sqla) if not verilera.eof then verilera.movefirst do while not verilera.eof sqlb="select * from yonetim_kurulu where id="&verilera("oylayan")&";" set verilerb=mysql_baglanti.execute(sqlb) if not verilerb.eof then %> &oylama=<%=verilera("id")%>"><%=verilerb("isim")%> <%=verilerb("soyisim")%> / <%=verilerb("unvan")%> - (<%=verilera("oylamaTarih")%>) <% end if verilera.movenext loop oylamaSayisi=1 else response.Write("Henüz oylanmadı") oylamaSayisi=0 end if else sqla="select count(id) from oylamalar where anket="&veriler1("id")&" and sekme="&veriler("id")&" and oylayan=0;" set verilera=mysql_baglanti.execute(sqla) response.Write verilera(0)&" kere oylandı" oylamaSayisi=0 end if %>	<% sqla="select count(id) from oylamalar where anket="&veriler1("id")&" ;" set verilera=mysql_baglanti.execute(sqla) toplamOylayan=verilera(0) sqla="select count(id) from oylamalar where anket="&veriler1("id")&" and sekme="&veriler("id")&";" set verilera=mysql_baglanti.execute(sqla) sekmeyiOylayan=verilera(0) sekmeYuzdesi=round(100*cint(sekmeyiOylayan)/cint(toplamOylayan)) response.Write "%"&sekmeYuzdesi %>