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))
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
news_news_flash.MoveNext()
Wend
%>
|