tell application "iTunes" set maxCount to count items of selection set loopCount to 1 set quo to "" & return repeat until (loopCount > maxCount) set quo to quo & "" & (name of item loopCount of selection) & " - " & (artist of item loopCount of selection) & "
" & return set loopCount to loopCount + 1 end repeat end tell set the clipboard to quo as text display dialog ((loopCount - 1) as string) & " tracks copied to clipboard as HTML ordered list"