DB Consultants - Company Turnaround

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RS_News Dim RS_News_numRows Set RS_News = Server.CreateObject("ADODB.Recordset") RS_News.ActiveConnection = MM_News_STRING RS_News.Source = "SELECT * FROM SYS_News ORDER BY NEWS_Date DESC" RS_News.CursorType = 0 RS_News.CursorLocation = 2 RS_News.LockType = 1 RS_News.Open() RS_News_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_News_numRows = RS_News_numRows + Repeat1__numRows %> DB Consultants - Company Turnaround

News and Events

<% While ((Repeat1__numRows <> 0) AND (NOT RS_News.EOF)) %>

,'Delete','status=yes,width=420,height=420')"><%=(RS_News.Fields.Item("NEWS_Title").Value)%> (<%=(RS_News.Fields.Item("NEWS_Date").Value)%>)

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_News.MoveNext() Wend %>

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