<%@LANGUAGE="VBSCRIPT"%> <% set RecordGONG = Server.CreateObject("ADODB.Recordset") RecordGONG.ActiveConnection = MM_jxfadbf_STRING RecordGONG.Source = "SELECT ID, gongt FROM gong ORDER BY gongd DESC" RecordGONG.CursorType = 0 RecordGONG.CursorLocation = 2 RecordGONG.LockType = 3 RecordGONG.Open() RecordGONG_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RecordGONG_numRows = RecordGONG_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT RecordGONG.EOF)) %> <%=(RecordGONG.Fields.Item("GONGT").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RecordGONG.MoveNext() Wend %>

<% RecordGONG.Close() %>