<%@ Language=VBScript %> <% dim rs set rs=Server.CreateObject("ADODB.Recordset") rs.Open "TopFlavourQuery","slush" if not rs.EOF then %>

This Weeks National Top Six Flavours Voted By You 

<%rs.MoveNext if not rs.EOF then%> <%rs.MoveNext if not rs.EOF then%> <%rs.MoveNext if not rs.EOF then%> <%rs.MoveNext if not rs.EOF then%> <%rs.MoveNext if not rs.EOF then%>
Fruity No. 1 <%=rs("flavour")%> <%=rs("CountOfflavour")%> Votes!
2 <%=rs("flavour")%> <%=rs("CountOfflavour")%>
3 <%=rs("flavour")%> <%=rs("CountOfflavour")%>
4 <%=rs("flavour")%> <%=rs("CountOfflavour")%>
5 <%=rs("flavour")%> <%=rs("CountOfflavour")%>
6 <%=rs("flavour")%> <%=rs("CountOfflavour")%>

<% end if end if end if end if end if end if %>

 

Vote for your own favourite flavour and watch its votes increase!

Favorite Flavour

Back to the flavour room