I had the same problem and was able to find a stored procedure at this persons website.

http://www.johnmacintyre.ca/%5Ccodespct.asp

I have modified it some, but out of the box this will do...