<%@LANGUAGE="VBSCRIPT"%> <% Dim rsMenu Dim rsMenu_numRows Set rsMenu = Server.CreateObject("ADODB.Recordset") rsMenu.ActiveConnection = MM_Steamers_STRING rsMenu.Source = "SELECT F.ID, F.categoryID, F.name as FoodName, F.description, F.displayOrder, F.active, C.ID, C.name as CategoryName, C.displayOrder, C.active FROM tblFood as F INNER JOIN tblFoodCategories as C ON F.categoryID = C.ID WHERE F.active <> 0 AND C.active<> 0 AND F.dinner<>0 and F.special=0 ORDER BY c.displayOrder ASC, f.displayOrder ASC" rsMenu.CursorType = 0 rsMenu.CursorLocation = 2 rsMenu.LockType = 1 rsMenu.Open() rsMenu_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsMenu_numRows = rsMenu_numRows + Repeat1__numRows %> <% Dim CategoryName CategoryName = "" %> Steamers Grillhouse: Dinner Menu

408-395-2722


Please call for Reservations

Dinner Menu

Dinner | Lunch

<% If Not rsMenu.EOF Or Not rsMenu.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsMenu.EOF)) %> <% If CategoryName <> (rsMenu.Fields.Item("CategoryName").Value) Then Response.Write("

" & (rsMenu.Fields.Item("CategoryName").Value) & "

") CategoryName = (rsMenu.Fields.Item("CategoryName").Value) End If %>

<%=(rsMenu.Fields.Item("FoodName").Value)%>
<%=(rsMenu.Fields.Item("description").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMenu.MoveNext() Wend %> <% End If ' end Not rsMenu.EOF Or NOT rsMenu.BOF %> <% If rsMenu.EOF And rsMenu.BOF Then %> There are currently no menu items in the database. <% End If ' end rsMenu.EOF And rsMenu.BOF %>

* Items subject to change

Steamer's Grillhouse
31 University Ave - Old Town
Los Gatos, CA 95030
408.395.CRAB
Open Seven Days a Week
for Lunch & Dinner
<% rsMenu.Close() Set rsMenu = Nothing %>