@matthew: This simple modification to the above script will include the page title:

tell application "Safari" tell document 1 set the clipboard to "" & name & "" end tell end tell

on escapeURL(aURL) set newURL to "" set savedDelimiters to AppleScript's text item delimiters set AppleScript's text item delimiters to {"&"}

set aCount to count text item of aURL
repeat with index from 1 to (aCount - 1)
set newURL to newURL & (text item index of aURL) & "&"
end repeat
set newURL to newURL & last text item of aURL

set AppleScript's text item delimiters to savedDelimiters
return newURL

end escapeURL