Dim ns As New NotesSessionDim doc As NotesDocumentDim question As StringDim llmreq As NotesLLMRequestDim llmres As NotesLLMResponseDim szServer As String Dim szCommand As String Dim szQuery As StringDim jsonNav As NotesJSONNavigatorDim el As NotesJSONElementDim result As stringSet doc=ns.Documentcontext question=doc.request_content(0)Set jsonNav = ns.Createjsonnavigator(question)Set el = jsonNav.GetElementByName ("question")Set llmreq = ns.CreateLLMRequest() szServer=ns.Currentdatabase.Server szCommand="Question" szQuery=questionSet llmres = llmreq.Completion (szServer, szCommand, szQuery)If (llmres Is Nothing) Then result=|{"answer":"error return"}|Else result=|{"answer":"|+llmres.Content+|"}|End IfMsgBox resultPrint {'Content-Type': 'application/json',}Print result
