Copy <img /> tag with dimensnions

image-tag.scpt

set this_file to choose file without invisibles
try
	tell application "Image Events"
		-- start the Image Events application
		launch
		-- open the image file
		set this_image to open this_file
		-- get dimensions of the image
		copy dimensions of this_image to {W, H}
		set file_name to name of this_image
		-- purge the open image data
		close this_image
	end tell
	set the clipboard to "<img src=\"" & file_name & "\" width=\"" & W & "\" height=\"" & H & "\" />"
on error error_message
	display dialog error_message
end try