<% Dim New_Special_List_rs Set New_Special_List_rs=conn.execute("select SpecialID,name,NClassID,NClass,pic from [Special] ORDER BY SpecialID desc") For i=1 To 10 If New_Special_List_rs.eof Then Exit For %>

<%=New_Special_List_rs(1)%> <%=New_Special_List_rs(3)%>

<% New_Special_List_rs.movenext Next New_Special_List_rs.close Set New_Special_List_rs=NOTHING %>