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

Announcements

<% While ((Repeat1__numRows <> 0) AND (NOT rsAnnouncements.EOF)) %>
<%=(rsAnnouncements.Fields.Item("title").Value)%>
<%=(rsAnnouncements.Fields.Item("body").Value)%>
<%=(rsAnnouncements.Fields.Item("story_date").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsAnnouncements.MoveNext() Wend %>

 
<% rsAnnouncements.Close() Set rsAnnouncements = Nothing %>