.: www.MostOrdered.com :.

<% @LANGUAGE="VBSCRIPT" %> <% Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mostordered.mdb") Set rsDrinkList = Server.CreateObject("ADODB.Recordset") sGetDrinkList = "SELECT DrinkName FROM Drinks GROUP BY DrinkName ORDER BY COUNT(DrinkName) DESC" rsDrinkList.Open sGetDrinkList, adoCon %> .: www.MostOrdered.com :.

What is MostOrdered.com?

MostOrdered.com is compiling an online listing of the most popular drinks and alcohol ordered in major cities across the US and Canada. You can search our database for your city's most ordered drinks, alcohol and more.

To help us out, we're asking you to submit what's most ordered where you live.

<% rsDrinkList.MoveFirst %>

The top 5 most ordered drinks are:

1. <% if not rsDrinkList.EOF and not rsDrinkList.BOF then %>" target=new><%=rsDrinkList("DrinkName")%><% end if %><% rsDrinkList.MoveNext %> 2. <% if not rsDrinkList.EOF and not rsDrinkList.BOF then %>" target=new><%=rsDrinkList("DrinkName")%><% end if %><% rsDrinkList.MoveNext %>

3. <% if not rsDrinkList.EOF and not rsDrinkList.BOF then %>" target=new><%=rsDrinkList("DrinkName")%><% end if %><% rsDrinkList.MoveNext %> 4. <% if not rsDrinkList.EOF and not rsDrinkList.BOF then %>" target=new><%=rsDrinkList("DrinkName")%><% end if %><% rsDrinkList.MoveNext %>

5. <% if not rsDrinkList.EOF and not rsDrinkList.BOF then %>" target=new><%=rsDrinkList("DrinkName")%><% end if %><% rsDrinkList.MoveNext %>