%@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)
%>
Descon Trading LLC - Leading provider of process instruments and process automation in Middle East
|
| |
|
 |
|
|
 |
© 2003 Descon Trading LLC. All rights reserved
|
|
|
<%
If not rsNews.EOF then
rsNews.Close()
Set rsNews = Nothing
end if
%>