%@LANGUAGE="VBSCRIPT"%> <% Dim Rec1 Dim Rec1_numRows Set Rec1 = Server.CreateObject("ADODB.Recordset") Rec1.ActiveConnection = MM_conn_STRING Rec1.Source = "SELECT * FROM shortwave ORDER BY SORT DESC" Rec1.CursorType = 0 Rec1.CursorLocation = 2 Rec1.LockType = 1 Rec1.Open() Rec1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 9 Repeat1__index = 0 Rec1_numRows = Rec1_numRows + Repeat1__numRows %>