Next Monday

on nextMonday from theDate
	theDate - (theDate - (date "Monday, January 8, 1000 12:00:00 AM")) mod weeks + weeks
end nextMonday

nextMonday from current date

set dateX to result

set A to ((month of dateX as number) + 100) as string

set b to ((day of dateX) + 100) as string

tell A
	text 2 thru 3
end tell
set mm to result

tell b
	text 2 thru 3
end tell
set dd to result
set output to mm & "/" & dd & "/" & (year of dateX) as string
return output