src.Request_Content(0) не работает через AJAX и еще пару вопросов.

Function getCookieVal( cookie As String, thysname As String) As String
Dim prefix As String
prefix = thysname + "="
Dim begin As Integer
Dim ending As Integer
begin = Instr(cookie, "; " + prefix)
If begin = 0 Then
begin = Instr(cookie, prefix)
If begin = 0 Then
getCookieVal = ""
Exit Function
End If
Else
begin = begin +2
End If
ending = Instr(begin, cookie, ";") - 1
If ending = -1 Then
ending = Len(cookie)
End If
getCookieVal = unescape(Mid$(cookie, begin+Len(prefix), ending - begin -Len(prefix)+1))
End Function
 
Sub setCookie(doc As NotesDocument, compName As String, compValue As String, adjYear As Integer, adjHour As Integer)
uses a print statement to set the cookie
uses adjYear and adjHour to set the expiry time of the cookie.
If the cookie is needed for the one particular session set adjHour to 1, then the cookie is active for an hour
If you want to expire a cookie, use a negative number for either adjYear or adjHour.
Dim thystyme As NotesDateTime
Dim gmttime As NotesDateTime
Dim gmtvar As Variant
Dim cooktime As String
Set thystyme = New NotesDateTime("")
Call thystyme.SetNow
If adjHour <> 0 Then
Call thystyme.AdjustHour(adjHour)
End If
If adjYear <> 0 Then
Call thystyme.AdjustYear(adjYear)
End If
Set gmttime = New NotesDateTime(Left$(thystyme.GMTTime, Len(thystyme.GMTTime)-4))
gmtvar = gmttime.LSLocalTime
cooktime = Format(gmtvar, "dddd")+ ", " + Format(gmtvar, "dd")+ "-" + Format(gmtvar, "mmm") + "-" + Format(gmtvar, "yyyy") +_
" " + Format(gmtvar, "hh:mm:ss") + " GMT"
compName = escape(compName)
compValue = escape(compValue)
Dim dbpath As String
dbpath = Strleft(Lcase(doc.Path_Info_Decoded(0)), ".nsf") + ".nsf"+ "/"
Print "Set-Cookie: " + compName + "=" + compValue + "; expires=" + cooktime + "; path=" + dbpath + ";"
End Sub
 
Function escape(strIn As String) As String
Dim strAllowed As String
Dim i As Integer
Dim strChar As String
Dim strReturn As String
 
strAllowed = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" & "@/.*-_"
i = 1
strReturn = ""
While Not (i > Len(strIn))
strChar = Mid$(strIn, i, 1)
If Instr(1, strAllowed, strChar) > 0 Then
strReturn = strReturn & strChar
Else
strReturn = strReturn & "%" & Hex$(Asc(strChar))
End If
i = i + 1
Wend
escape = strReturn
End Function
 
Function unescape(strIn As String) As String
Dim i As Integer
Dim strChar As String
Dim strReturn As String
 
i = 1
strReturn = ""
While Not (i > Len(strIn))
strChar = Mid$(strIn, i, 1)
If Not strChar = "%" Then
strReturn = strReturn & strChar
Else
i = i + 1
strChar = "&H" & Mid$(strIn, i, 2)
strReturn = strReturn & Chr$(Val(strChar))
i = i + 1
End If
i = i + 1
Wend
unescape = strReturn
End Function

Sub Initialize
Тестовый Агент проверки AJAX 1TestAJAX
On Error Goto errHnd
=== WebSession class originally from http://tanny.ica.com/ICA/TKO/tkoblog.nsf/dx/websession-agent-class
Dim web As New WebSession()
Dim arg As Variant, arg2 As String, arguments List As String
arg =  web.session.DocumentContext.Request_Content(0)
Msgbox "ws.Request_Content(0)="+arg
arg2 =  web.session.DocumentContext.Query_String(0)
Msgbox "ws.Query_String(0)="+arg2
errHnd:
If error, let user know - redirect web browser to Order Error page
Print "Error #:" + Str(Err)+ " line: "+ Cstr(Erl)
End Sub

Передача параметров
v=Evaluate({@Explode(@UrlDecode("Domino";Request_Content);"&")},contextdoc)
Forall vls In v
tmp=vls
If Not Iselement(ValueList(Strleft(tmp,"="))) Then
ValueList(Strleft(tmp,"="))=Strright(tmp,"=")
Else
ValueList(Strleft(tmp,"="))=ValueList(Strleft(tmp,"="))+"||"+Strright(tmp,"=")
End If
End Forall