<%@LANGUAGE="VBSCRIPT"%> <% Dim rscoffee__MMColParam rscoffee__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then rscoffee__MMColParam = Request("MM_EmptyValue") %> <% set rscoffee = Server.CreateObject("ADODB.Recordset") rscoffee.ActiveConnection = MM_CoffeeWorld_STRING rscoffee.Source = "SELECT * FROM jmurray.PRODUCTS WHERE isBean = " + Replace(rscoffee__MMColParam, "'", "''") + " ORDER BY ProductName ASC" rscoffee.CursorType = 0 rscoffee.CursorLocation = 2 rscoffee.LockType = 3 rscoffee.Open() rscoffee_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rscoffee_numRows = rscoffee_numRows + Repeat1__numRows %> Coffee World Coffees

Please note, this is not a live site. You must be connected to the Internet for some menus to work.

Java Jody’s Coffees

Please choose from our selection of fine coffees.

<% While ((Repeat1__numRows <> 0) AND (NOT rscoffee.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rscoffee.MoveNext() Wend %>

<%=(rscoffee.Fields.Item("ProductName").Value)%>	<%= FormatCurrency((rscoffee.Fields.Item("PricePerUnit").Value), 2, -2, -2, -2) %> per <%=(rscoffee.Fields.Item("PrimaryUnit").Value)%>/ <%=(rscoffee.Fields.Item("Unit").Value)%>
<%=(rscoffee.Fields.Item("ProductDescription").Value)%>	Quantity: " size="15" maxlength="15">

<% rscoffee.Close() %>