Dim web As New WebSession() ''
Ссылка скрыта от гостей
datarc = web.session.DocumentContext.Request_Content(0) '' Даные из корзины для обработки
SessionID = Left(Strright(web.session.DocumentContext.HTTP_Cookie(0), "_shopcart="),32)
или
Dim ctx As NotesDocument
Set ctx = ns.DocumentContext
SessionID = Left(Strright(ctx.HTTP_Cookie(0), "onimod_"+Cstr( admindoc.GetItemValue("DBID")(0) )+"_shopcart="),32)
Или прямо в агенте надо setcookie? А зачем? Ошибка в логике задачи.
Делаете из агента JSON и по его результатам ставите куки на JS прямо в браузере.
var url = 'doAddToCart?OpenAgent'+'&shopcart=' + shopcart;
$.ajax({
cache: false,
url: url,
type: 'post',
data: datarc,
datatype: "application/json",
success: function(resp){
if ( resp.update == '1' ) {
if ( resp.user =='onimod' && resp.shopcart ) { _doSetCookie('shopcart', resp.shopcart) };