ANKETA

<% lastskupina="" koniec=0 pocet=0 off=0 aa=0 bstrQuery = "Select * from pollall where site='"&kde&"' order by id desc" MemRecordSet.Open bstrQuery, dbfconncpz,1,4 if memrecordset.recordcount>0 then do while not memrecordset.eof skupina=memrecordset("nazov") off=1 %>

<%=skupina%>

<% uzavriet="" pocet=memrecordset("body1")+memrecordset("body2")+memrecordset("body3")+memrecordset("body4")+memrecordset("body5")+memrecordset("body6")+memrecordset("body7")+memrecordset("body8") if pocet=0 then pocet=1 %> <% for w=1 to 8 %> <% if memrecordset("name"&w)<>"" then %> <% end if %> <% next %>

<%if memrecordset("linka"&w)&""<>"" then%>-" title="<%=memrecordset("popis"&w)%>"><% end if %><%= memrecordset("name"&w) %>

<% if uzavriet="" and off=0 then %> <% else%>

" height="10"> <%= round(memrecordset("body"&w)/pocet*100,1) %>% <% end if %>

<% memrecordset.MoveNext loop %> <% end if %> <% memrecordset.close %>