<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ls_menu
Dim list_dir
Dim last_section
Dim current_section
menu = ""
menu = Request.QueryString("menu")
If menu = "" Then
menu = "breakfast"
End If
%>
<%
Dim rs_menus_list
Dim rs_menus_list_numRows
Set rs_menus_list = Server.CreateObject("ADODB.Recordset")
rs_menus_list.ActiveConnection = MM_fame_db_STRING
rs_menus_list.Source = "SELECT * FROM redstones WHERE menu_section LIKE '" & menu & "'"
rs_menus_list.CursorType = 0
rs_menus_list.CursorLocation = 2
rs_menus_list.LockType = 1
rs_menus_list.Open()
rs_menus_list_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_menus_list_numRows = rs_menus_list_numRows + Repeat1__numRows
%>
Untitled Document
<%
Response.Write(ls_menu)
%>
<% 'Response.Write(menu) %>
<% While ((Repeat1__numRows <> 0) AND (NOT rs_menus_list.EOF)) %>
<% current_section = (rs_menus_list.Fields.Item("menu_section").Value) %>
<% If (rs_menus_list.Fields.Item("menu").Value) <> "sweets" Then %>
<% If current_section <> last_section Then %>