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"