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