Press Releases News Letter News Flash In the Press

News Flash

<% set news_news_flash = Server.CreateObject("ADODB.Recordset") news_news_flash.ActiveConnection = MM_cprimanews_STRING news_news_flash.Source = "SELECT * FROM q_news_newsflash ORDER BY news_date DESC" news_news_flash.CursorType = 0 news_news_flash.CursorLocation = 2 news_news_flash.LockType = 3 news_news_flash.Open() news_news_flash_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 news_news_flash_numRows = news_news_flash_numRows + Repeat1__numRows %> <% While ((Repeat1__numRows <> 0) AND (NOT news_news_flash.EOF)) %> <%=(news_news_flash.Fields.Item("news_header").Value)%>
<%=(news_news_flash.Fields.Item("news_text").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 news_news_flash.MoveNext() Wend %>