2004 Consumers' Choice in Chains - Scores by attribute

By Staff -- Restaurants & Institutions, 9/1/2004

2004 Consumers’ Choice in Chains
Scores by attribute

<% If Request("attr") = "" Then attr = "os" Else attr = Request("attr") Select Case attr Case "os" fld = "overall_score" fldname = "Overall Score" Case "fq" fld = "food_quality" fldname = "Food Quality" Case "mv" fld = "menu_variety" fldname = "Menu Variety" Case "v" fld = "value" fldname = "Value" Case "gr" fld = "good_reputation" fldname = "Good Reputation" Case "s" fld = "service" fldname = "Service" Case "a" fld = "atmosphere" fldname = "Atmosphere" Case "cl" fld = "cleanliness" fldname = "Cleanliness" Case "co" fld = "convenience" fldname = "Convenience" Case Else fld = "overall_score" fldname = "Overall Score" End Select Set rsCCIC = Server.CreateObject("ADODB.Recordset") rsCCIC.ActiveConnection = MM_rbiconn_STRING rsCCIC.Source = "SELECT chain, "&fld&" FROM CCIC_2004 ORDER BY " & fld & " DESC, chain" rsCCIC.CursorType = 0 rsCCIC.CursorLocation = 2 rsCCIC.LockType = 1 rsCCIC.Open() %>

<% If Not rsCCIC.EOF Then %> <% cnt = 1 Do Until rsCCIC.EOF If cnt = 1 Then pct = "%" Else pct = "" If bgcolor="#FFFFEE" Then bgcolor = "#FFFFFF" Else bgcolor="#FFFFEE" %> <% cnt = cnt + 1 firstrow = False rsCCIC.MoveNext Loop %> <% Else %> <% End If %>