tell application "Adobe InDesign CS2" 
	set myDoc to active document 
	set nPages to count pages in myDoc 
	try 
		set thisPage to active page of active window 
	on error 
		set thisPage to active spread of active window 
	end try 
	set myDialog to make dialog with properties {name:"Einzeln Transformieren"} 
	tell myDialog 
		make dialog column 
		tell the result 
			make static text with properties {static label:"hinter Seite:"} 
		end tell 
		make dialog column 
		tell the result 
			set dupPField to make integer editbox with properties {edit value:0} 
		end tell 
	end tell 
	set nu to show myDialog 
	if nu is true then 
		set dupP to (edit value of dupPField) as integer 
	else 
		destroy myDialog 
		return 
	end if 
	 
	tell myDoc 
		set dupPage to duplicate thisPage 
		move dupPage to after page dupP of myDoc 
           -- move dupPage to after thisPage of myDoc 
	end tell 
end tell 

tell application "Adobe InDesign CS2" 
	set myActivePage to active page of layout window 1 
	set myNewPage to duplicate myActivePage to after myActivePage 
end tell 

var myActivePage = app.activeWindow.activePage; 
var myNewPage = myActivePage.duplicate(LocationOptions.after, myActivePage) 

tell application "Adobe InDesign CS2" 
	set myDoc to active document 
	set nPages to count pages in myDoc 
	if facing pages of document preferences of myDoc then 
		set thisPage to active spread of active window 
		set keepTogether to keep together of thisPage 
		set keep together of thisPage to true 
		set isSpread to true 
	else 
		set thisPage to active page of active window 
		set isSpread to false 
	end if 
	(*	set myDialog to make dialog with properties {name:"Einzeln Transformieren"} 
	tell myDialog 
		make dialog column 
		tell the result 
			make static text with properties {static label:"hinter Seite:"} 
		end tell 
		make dialog column 
		tell the result 
			set dupPField to make integer editbox with properties {edit value:0} 
		end tell 
	end tell 
	set nu to show myDialog 
	if nu is true then 
		set dupP to (edit value of dupPField) as integer 
	else 
		destroy myDialog 
		return 
	end if 
	*) 
	set dupP to index of thisPage 
	activate 
	tell myDoc 
		set dupPage to duplicate thisPage 
		if isSpread then 
			move dupPage to after spread dupP of myDoc 
			set keep together of thisPage to keepTogether 
			set keep together of dupPage to keepTogether 
		else 
			move dupPage to after page dupP of myDoc 
		end if 
	end tell 
end tell 

// gegeben myTargetSpread 
set myTargetPage to page -1 of myTargetSpread // letzte Seite des Druckbogens - für Plazierung danach 
set myTargetPage to page 1 of myTargetSpread // erste Seite des Druckbogens - für Plazierung davor