<%@LANGUAGE="VBSCRIPT"%> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_descon_STRING rsNews.Source = "SELECT news FROM desconllbb.flashnews" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %> <% 'DIM iRecordCount 'iRecordCount = 0 'DO WHILE NOT rsNews.EOF 'iRecordCount = iRecordCount + 1 'rsNews.MoveNext 'Loop 'rsNews.MoveFirst 'Response.write(iRecordCount) %>

© 2003 Descon Trading LLC. All rights reserved

<% If not rsNews.EOF then rsNews.Close() Set rsNews = Nothing end if %>