Copy reponse docs

Hey folks,

How can I copy a parent document and response document to the same dB without moving the actual respose document from the original parent document to the new copy of the parent document??? i.e. an exact copy of the response

thanks

Mick

Subject: Copy reponse docs…

This should do it:

dim db as NotesDatabase

dim newresponse as NotesDocument

dim oldresponse as NotesDocument

dim newparent as NotesDocument

[set db and newparent]

newresponse = oldresponse.CopyToDatabase(db)

call newresponse.MakeResponse(newparent)

call newresponse.Save(True, False)

/Peter