%@LANGUAGE="VBSCRIPT"%> <% set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_connaturesimage_STRING rsLinks.Source = "SELECT * FROM tbllinks ORDER BY Name ASC" rsLinks.CursorType = 0 rsLinks.CursorLocation = 2 rsLinks.LockType = 3 rsLinks.Open() rsLinks_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsLinks_numRows = rsLinks_numRows + Repeat1__numRows %>
|