<% set RSregNews = Server.CreateObject("ADODB.Recordset") RSregNews.ActiveConnection = MM_workspace_STRING RSregNews.Source = workspaceNewsFeedSource RSregNews.CursorType = 0 RSregNews.CursorLocation = 2 RSregNews.LockType = 3 RSregNews.Open() RSregNews_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 RSregNews_numRows = RSregNews_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT RSregNews.EOF)) %> <% if RSregNews.Fields.Item("imagethumbsrc").Value <> "" then %>" border="1" align="left" hspace="7"><% end if %><%=(RSregNews.Fields.Item("headline").Value)%> "><%=(RSregNews.Fields.Item("intro").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RSregNews.MoveNext() Wend %>

<% RSregNews.Close() %>