Dim url As String
url=db.HttpURL
If Len(id)<1 Then
'close write access to parent
parent.ReplaceItemValue(USER_FLD,doc.GetItemValue(USER_FLD)).IsAuthors=False
parent.ReplaceItemValue(USER_FLD,doc.GetItemValue(USER_FLD)).IsReaders=True
Call parent.Save( True, False)
'web part
'break frameset
url=|<html><script>if (top.location != location) {top.location="| &url &|?EditDocument";}</script></html>|
Else
'web part
url={[} &OpenTest(parent, id) &{]}
End If
If clientType = {Web} Then Print url