<%@LANGUAGE="VBSCRIPT"%> <% Dim rsGifts__MMColParam rsGifts__MMColParam = "0" if (Request("MM_EmptyValue") <> "") then rsGifts__MMColParam = Request("MM_EmptyValue") %> <% set rsGifts = Server.CreateObject("ADODB.Recordset") rsGifts.ActiveConnection = MM_CoffeeWorld_STRING rsGifts.Source = "SELECT ProductID, ProductName, ProductDescription, PricePerUnit, PrimaryUnit, Unit FROM jmurray.PRODUCTS WHERE isBean = " + Replace(rsGifts__MMColParam, "'", "''") + " ORDER BY ProductName ASC" rsGifts.CursorType = 0 rsGifts.CursorLocation = 2 rsGifts.LockType = 3 rsGifts.Open() rsGifts_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsGifts_numRows = rsGifts_numRows + Repeat1__numRows %> Coffee World Gifts

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

Java Jody’s Gifts

Please choose from our fine gift selection. Each gift is hand selected for its quality and beauty.

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

<%=(rsGifts.Fields.Item("ProductName").Value)%>	<%= FormatCurrency((rsGifts.Fields.Item("PricePerUnit").Value), 2, -2, -2, -2) %>/Each
<%=(rsGifts.Fields.Item("ProductDescription").Value)%>	Quantity: " size="5" maxlength="5">

<% rsGifts.Close() %>