%@LANGUAGE="VBSCRIPT"%> <% Dim rsSpecials Dim rsSpecials_numRows Set rsSpecials = Server.CreateObject("ADODB.Recordset") rsSpecials.ActiveConnection = MM_GulfIce_STRING rsSpecials.Source = "SELECT * FROM tblEquipment where special = 'Y'" rsSpecials.CursorType = 0 rsSpecials.CursorLocation = 2 rsSpecials.LockType = 1 rsSpecials.Open() rsSpecials_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsSpecials_numRows = rsSpecials_numRows + Repeat1__numRows %>