GrabMetaFromGraceNotes

tell application "iTunes"
  set foundCD to true
	try
		set myCD to some source whose kind is audio CD
	on error errorMessage number errorNumber
		-- error 1728 means the AudioCD was not found, so wait a little 
		if errorNumber is -1728 then
			set foundCD to false
		else
			display dialog errorMessage
		end if
	end try
	if foundCD then
		set CDname to myCD's name
		set myPlaylist to playlist 1 of myCD
		set theTracks to tracks of myPlaylist
		tell application "Max"
			set mc to (count every track of document 1)
			set maxdisk to document 1
		end tell
		set ic to (count theTracks)
		if mc = ic then
			repeat with i from 1 to (count theTracks)
				set atrack to item i of theTracks
				set ar to artist of atrack
				set al to album of atrack
				set tn to track number of atrack
				set tc to track count of atrack
				set ge to genre of atrack
				set co to composer of atrack
				set ye to year of atrack
				set na to name of atrack
				set comp to compilation of atrack
				set com to comment of atrack
				set dn to disc number of atrack
				set dc to disc count of atrack
				tell application "Max"
					set maxtrack to track i of document 1
					if not (rip in progress of maxtrack) and not (encode in progress of maxtrack) then
						set title of maxtrack to na
						set artist of maxtrack to ar
						set date of maxtrack to ye as string
						set genre of maxtrack to ge
						set composer of maxtrack to co
						--set number of maxtrack to tn
					end if
				end tell
				if i = 1 then
					tell application "Max"
						set title of maxdisk to al
						set artist of maxdisk to ar
						set compilation of maxdisk to comp
						set genre of maxdisk to ge
						set date of maxdisk to ye as string
						set composer of maxdisk to com
						-- set track count of maxdisk to tc
						-- max doesn't allow setting total tracks
						set composer of maxdisk to co
						if dn > 1 then
							set disc number of maxdisk to dn
							set total discs of maxdisk to dc
						end if
					end tell
				end if
			end repeat
		else
			display dialog "The iTunes CD track count and the Max CD track count do not match."
		end if
	else
		display dialog "Couldn't get a CD from iTunes. Please retry."
		
	end if
end tell