Make a new folder inside a selected folder with Applescript

I wrote an Applescript with which one can create a new folder inside a current selected folder, or inside a current window or inside a folder containing a selected item.
You can read more and copy the code from my Scripting-page.