<%@LANGUAGE="VBSCRIPT"%> <% Dim rsMartinis Dim rsMartinis_numRows Set rsMartinis = Server.CreateObject("ADODB.Recordset") rsMartinis.ActiveConnection = MM_Steamers_STRING rsMartinis.Source = "SELECT M.ID, M.categoryID, M.name as MartiniName, M.description, M.displayOrder, M.active, C.ID, C.name as CategoryName, C.displayOrder, C.active FROM tblDrinks as M INNER JOIN tblDrinkCategories as C ON M.categoryID = C.ID WHERE M.active <> 0 AND C.active<> 0 ORDER BY c.displayOrder ASC, M.displayOrder ASC" rsMartinis.CursorType = 0 rsMartinis.CursorLocation = 2 rsMartinis.LockType = 1 rsMartinis.Open() rsMartinis_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsMartinis_numRows = rsMartinis_numRows + Repeat1__numRows %> Steamers: Martini List

408-395-2722


Please call for Reservations

Martini List

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

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

") CategoryName = (rsMartinis.Fields.Item("CategoryName").Value) End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMartinis.MoveNext() Wend %>
<%=(rsMartinis.Fields.Item("MartiniName").Value)%> <%=(rsMartinis.Fields.Item("description").Value)%>
<% End If ' end Not rsMartinis.EOF Or NOT rsMartinis.BOF %> <% If rsMartinis.EOF And rsMartinis.BOF Then %> There are currently no menu items in the database. <% End If ' end rsMartinis.EOF And rsMartinis.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
<% rsMartinis.Close() Set rsMartinis = Nothing %>