Folder action adding date to added file

Question

I need to write a folde action that will add the date to a files name after it is added. can anyone help here. here is what I have done but the file still does not get named correctly.
set m to month of (current date)
set d to day of (current date)
set y to year of (current date)
if month of (current date) is January then
set m to 1
else
if month of (current date) is February then
set m to 2
else
if month of (current date) is March then
set m to 3
else
if month of (current date) is April then
set m to 4
else
if month of (current date) is May then
set m to 5
else
if month of (current date) is June then
set m to 6
else
if month of (current date) is July then
set m to 7
else
if month of (current date) is August then
set m to 8
else
if month of (current date) is September then
set m to 9
else
if month of (current date) is October then
set m to 10
else
if month of (current date) is November then
set m to 11
else
if month of (current date) is December then
set m to 12
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
set theshortdate to m & "/" & d & "/" & y as string
--display dialog theshortdate
set source_folder to "Macintosh HD 2:Users:Edit2:Desktop:test"
tell application "Finder"
--set theFile to every item in folder source_folder
set old_name to "123"
set new_name to old_name & ".scpt" & " " & theshortdate as string
set name of file "Macintosh HD 2:Users:Edit2:Desktop:test:123.scpt" to new_name as string
end tell

Answer 1

this thing keeps repeat forever and adding the 11-1-07 date to the file name over and over, I cant figure out why
on adding folder items to this_folder after receiving added_items
set m to month of (current date)
set d to day of (current date)
set y to year of (current date)
if month of (current date) is January then
set m to 1
else
if month of (current date) is February then
set m to 2
else
if month of (current date) is March then
set m to 3
else
if month of (current date) is April then
set m to 4
else
if month of (current date) is May then
set m to 5
else
if month of (current date) is June then
set m to 6
else
if month of (current date) is July then
set m to 7
else
if month of (current date) is August then
set m to 8
else
if month of (current date) is September then
set m to 9
else
if month of (current date) is October then
set m to 10
else
if month of (current date) is November then
set m to 11
else
if month of (current date) is December then
set m to 12
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
set theshortdate to m & "-" & d & "-" & y as string
tell application "Finder"
display dialog theshortdate
set n to count items in added_items
display dialog n as text
repeat with an_item in added_items
set file_name to name of an_item as string -- get the current name
--display dialog file_name as string
set newname to file_name & " " & theshortdate
--display dialog newname
set name of an_item to newname as text
end repeat
end tell
end adding folder items to