<% On Error Resume Next %>
<%
id=sadece_sayi(request.QueryString("id"))
sqlz="select * from anketSekme where id="&id&";"
set verilerz=mysql_baglanti.execute(sqlz)
if not verilerz.eof then
sql1="select * from anketler where id="&verilerz("anket")&";"
set veriler1=mysql_baglanti.execute(sql1)
if not veriler1.eof then
anketID=veriler1("id")
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="&verilerz("id")&";"
set verilera=mysql_baglanti.execute(sqla)
sekmeyiOylayan=verilera(0)
sekmeYuzdesi=round(100*cint(sekmeyiOylayan)/cint(toplamOylayan))
end if
%>
Sekme Detayları
| Sekme başlığı : |
<%=verilerz("baslik")%> |
| Bağlı olduğu anket : |
<%=veriler1("baslik")%> |
| Toplam oy : |
<%=toplamOylayan%> |
| Sekmenin oyu : |
<%=sekmeyiOylayan%> |
| Sekmenin yüzdesi : |
%<%=sekmeYuzdesi%> |
<%
maxOy=0
kazanan=""
kazananRenk=""
sqlo="select * from anketSekme where anket="&anketID&";"
set verilero=mysql_baglanti.execute(sqlo)
if not verilero.eof then
verilero.movefirst
say=1
do while not verilero.eof
sqly="select count(id) from oylamalar where sekme="&verilero("id")&";"
set verilery=mysql_baglanti.execute(sqly)
sqla="select count(id) from oylamalar where anket="&anketID&" and sekme="&verilero("id")&";"
set verilera=mysql_baglanti.execute(sqla)
sekmeyiOylayan=verilera(0)
sekmeYuzdesi=round(100*cint(sekmeyiOylayan)/cint(toplamOylayan))
if sekmeyiOylayan>maxOy then
maxOy=sekmeyiOylayan
kazanan=verilero("baslik")
kazananRenk="03D0"&sekmeYuzdesi
end if
%>
<%
verilero.movenext
loop
else
%>
Ankette kayıtlı sekme bulunamadı
<%
end if
%>
| Anket sonucu |
<%=kazanan%> |
<%
else
response.Write "Anket sekmesi görüntülenemiyor."
end if
%>
