%@LANGUAGE="VBSCRIPT"%> <% Dim rsnewslist Dim rsnewslist_numRows Set rsnewslist = Server.CreateObject("ADODB.Recordset") rsnewslist.ActiveConnection = MM_duvalmorgan_STRING rsnewslist.Source = "SELECT * FROM tbl_newsstories ORDER BY NewsID DESC" rsnewslist.CursorType = 0 rsnewslist.CursorLocation = 2 rsnewslist.LockType = 1 rsnewslist.Open() rsnewslist_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsnewslist_numRows = rsnewslist_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||