<% Dim Hot_Special_List_rs Set Hot_Special_List_rs=conn.execute("select SpecialID,name from [Special] ORDER BY hits desc") For i=1 To 12 If Hot_Special_List_rs.eof Then Exit For %>   <%If Len(Hot_Special_List_rs(1))>17 Then Response.Write (left(Hot_Special_List_rs(1),16)&"..") Else Response.Write(Hot_Special_List_rs(1)) End If%> <% Hot_Special_List_rs.movenext Next Hot_Special_List_rs.close Set Hot_Special_List_rs=NOTHING %>