content: on replaceString(theText, oldString, newString)
  	set AppleScript's text item delimiters to oldString
  	set tempList to every text item of theText
  	set AppleScript's text item delimiters to newString
  	set theText to the tempList as string
  	set AppleScript's text item delimiters to ""
  	return theText
  end replaceString
  
  set the record_name to text returned of ¬
  	(display dialog "Record name:" with title "Search For Record" default answer "" default button 2)
  set the record_name to replaceString(record_name, " ", "+")
  
  open location "http://www.discogs.com/sell/list?ships_from=United+States&format=Vinyl&q=" & record_name & "&sort=price%2Casc"
  open location "http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=" & record_name & "+vinyl&x=0&y=0"
  open location "http://vinyl-records.soundstagedirect.com/search?w=" & record_name & "&asug="
  open location "http://www.insound.com/search/?query=" & record_name