|
 |
 |
 |
|
<%
set ab = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from ankets order by id desc"
ab.open SQL,data,1,3
Do While not ab.eof
%>
| <%=ab("soru")%> |
<%
Set tAnc = Server.CreateObject("ADODB.RecordSet")
tAnc.Open "anket Where a_id="&ab("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="&ab("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("cevap")%> [ <%=strOy%> Oy - % <%=Left(tOy,4)%>] |
|
|
<%
tAnc.MoveNext
Loop
set toy = Server.CreateObject("ADODB.RecordSet")
SQL = "select SUM(deger) as oy_say from anket where a_id="&ab("id")&""
toy.open SQL,data,1,3
%>
|
Toplam Oy : <%=toy("oy_say")%> |
|
<%
toy.close
set toy = Nothing
ab.movenext : loop
%>
|
|
 |
 |
|
|
 |
 |
|
|
