<%@LANGUAGE="VBSCRIPT"%> <% Dim rsWine Dim rsWine_numRows Set rsWine = Server.CreateObject("ADODB.Recordset") rsWine.ActiveConnection = MM_Steamers_STRING rsWine.Source = "SELECT W.ID, W.categoryID, W.name as WineName, W.description, W.displayOrder, W.active, C.ID, C.name as CategoryName, C.displayOrder, C.active FROM tblWine as W INNER JOIN tblWineCategories as C ON W.categoryID = C.ID WHERE W.active <> 0 AND C.active<> 0 ORDER BY c.displayOrder ASC, W.displayOrder ASC" rsWine.CursorType = 0 rsWine.CursorLocation = 2 rsWine.LockType = 1 rsWine.Open() rsWine_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsWine_numRows = rsWine_numRows + Repeat1__numRows %> <% Dim WineCategoryName WineCategoryName = "" %> Steamers Grillhouse: Wine List

408-395-2722


Please call for Reservations

Wine List

<% If Not rsWine.EOF Or Not rsWine.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsWine.EOF)) %> <% If WineCategoryName <> (rsWine.Fields.Item("CategoryName").Value) Then Response.Write("") WineCategoryName = (rsWine.Fields.Item("CategoryName").Value) End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsWine.MoveNext() Wend %>
" & (rsWine.Fields.Item("CategoryName").Value) & "
<%=(rsWine.Fields.Item("WineName").Value)%> <%=(rsWine.Fields.Item("description").Value)%>
<% End If ' end Not rsWine.EOF Or NOT rsWine.BOF %> <% If rsWine.EOF And rsWine.BOF Then %> We're sorry, but we are currently updating our wine list. Please come into the restaurant to see our outstanding selection of fine wines. <% End If ' end rsWine.EOF And rsWine.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
<% rsWine.Close() Set rsWine = Nothing %>