set dateRangeStart to date "Tuesday, September 14, 2010 00:00:00"
set dateRangeEnd to date "Wednesday, September 15, 2010 00:00:00"
tell application "Address Book"
activate
try
if (group "tempgroup" exists) = false then
set newGroup to make new group at end with properties {name:"tempgroup"}
set foundGroup to people whose creation date > dateRangeStart and creation date < dateRangeEnd
repeat with i in foundGroup
add i to group "tempgroup"
end repeat
save
set selected of group "tempgroup" to true
else
error "Group 'tempgroup' Already Exists!"
end if
on error errMsg number errNum
set sep to "=============================="
set e to sep & return & "Error: " & errMsg & return & sep & return ¬
& "Error Number: " & errNum & return & sep
beep
display dialog e
end try
end tell