<%@LANGUAGE="VBSCRIPT"%> <% Dim rsSpecials Dim rsSpecials_numRows Set rsSpecials = Server.CreateObject("ADODB.Recordset") rsSpecials.ActiveConnection = MM_GulfIce_STRING rsSpecials.Source = "SELECT * FROM tblEquipment where special = 'Y'" rsSpecials.CursorType = 0 rsSpecials.CursorLocation = 2 rsSpecials.LockType = 1 rsSpecials.Open() rsSpecials_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsSpecials_numRows = rsSpecials_numRows + Repeat1__numRows %> Gulf Ice Systems, Inc. - Ice making and beverage dispensing equipment in Pensacola, Florida

The Gulf Ice Systems, Inc. Fire Sale is a listing of discounted equipment and specialty products. This consists of new, used, and remanufactured products sold at a great discount. We also list special sales and promotions on this page.

<% While ((Repeat1__numRows <> 0) AND (NOT rsSpecials.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSpecials.MoveNext() Wend %>
Quantity Model Part # Description Condition Cost Avail
<%=(rsSpecials.Fields.Item("quanity").Value)%> <%=(rsSpecials.Fields.Item("model").Value)%> <%=(rsSpecials.Fields.Item("partNumber").Value)%> <%=(rsSpecials.Fields.Item("description").Value)%> <%=(rsSpecials.Fields.Item("condition").Value)%> <%=FormatCurrency((rsSpecials.Fields.Item("cost").Value),2)%> <%=(rsSpecials.Fields.Item("available").Value)%>
<% rsSpecials.Close() Set rsSpecials = Nothing %>