%@LANGUAGE="VBSCRIPT"%> <% set rsmembers = Server.CreateObject("ADODB.Recordset") rsmembers.ActiveConnection = MM_nav_STRING rsmembers.Source = "SELECT * FROM ofcc_members order by name" rsmembers.CursorType = 0 rsmembers.CursorLocation = 2 rsmembers.LockType = 3 rsmembers.Open() rsmembers_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rsmembers_numRows = rsmembers_numRows + HLooper1__numRows %>