<% sorgum = "select * from ankets order by id desc" ras.open sorgum,baglantim,1,3 if not ras.eof then %> &s=<%=session.sessionID%>" method="post"> <% Set tAnc = Server.CreateObject("ADODB.RecordSet") tAnc.Open "anket Where a_id Like '"&ras("id")&"'",data,1,3 Vote = 0 Do While Not tAnc.EOF Vote = Vote + tAnc("deger") tAnc.MoveNext Loop tAnc.Close Set tAnc = NoThing Set tAnc = Server.CreateObject("ADODB.RecordSet") tAnc.Open "anket Where a_id Like '"&ras("id")&"'",data,1,3 Do While Not tAnc.EOF strOy = tAnc("deger") If strOy = "0" Then tOy = "0" Else tOy = (strOy /Vote) * 100 End If %> <% tAnc.MoveNext Loop Set tOy = data.Execute("anket Where a_id Like '"&ras("id")&"'") Do While Not tOy.EOF AraToplam = tOy("deger") OySayisi = OySayisi + AraToplam tOy.MoveNext Loop tOy.Close : Set tOy = Nothing %>

<%=ras("soru")%>
">	<%=tAnc("cevap")%>	%<%=Left(tOy,4)%>

Toplam Oy : <%=OySayisi%>

Tüm Anketleri Göster ť

<%end if%>