Re: Retrieving form data from an agent

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I have a submit button on my form.  In my case, I use
@Command([FileSave]);@Command([FileCloseWindow]).  My agent calling url is
in a $$Return field.  This will execute on submission of the form.  If you
don't want to save the info from the form, just use a SaveOptions field
defaulted to 0 to keep it form saving.  Then, the agent itself does all
the work between the AS/400 and notes, then displays the result with html
on a new page.  If you need any more details, just let me know.

-JS




clib@gptruck.com
Sent by: domino400-admin@midrange.com
06/26/2002 10:27 AM
Please respond to domino400


        To:     domino400@midrange.com
        cc:
        Subject:        Re: Retrieving form data from an agent



Great. Did you put your @Return command in a form button?





                    JDSchimansky@wardtr
                    ucking.com                To: domino400@midrange.com
                    Sent by:                  cc:
                    domino400-admin@mid       Subject:     Re: Retrieving
form data from an agent
                    range.com


                    06/26/2002 07:25 AM
                    Please respond to
                    domino400






This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
If I understand correctly, you want to call your agent and pass info from
the form to the agent.  If this is the case, here is how I do it.  You can
add the values from the form the url that is calling the agent. ie:
@Return("[http://www.mysite.com/wardweb.nsf/PasswordRecover?OpenAgent&"+
Userid + "&" + EmailAddress +"&"+ CustName + "]")
In this case, only three fields are passed to the agent with '&'
separating each value.  Since this will be sent as one long value, the
agent will need to break it up at the '&', like so:
        On Error Resume Next
        server$ = "server"
        dbfile$ = "mydb.nsf"
        Dim db As New NotesDatabase( server$, dbfile$ )
        Dim view As NotesView
        Dim doc As NotesDocument
        Dim docMail As NotesDocument
        Dim compdate As Variant
        Dim rtitem As NotesRichTextItem
        Dim status As String
        Set session = New NotesSession
        Set view = db.GetView("User List")
        Set docweb = session.DocumentContext
        'Set docForm = view.GetFirstDocument
        Set docMail = New NotesDocument(db)
        Set rtitem = New NotesRichTextItem(docMail, "Body" )
        URLString = docweb.Query_String(0)
        URLLength = Len(URLString)

'**********************************************************************
'  Get the User ID         *
'**********************************************************************
        ParamPosition = Instr(URLString,"&") + 1
        ParamStop = Instr(ParamPosition, URLString, "&")
        ParamLen = (ParamStop - ParamPosition)
        username = Mid(URLString, ParamPosition,        ParamLen)

'**********************************************************************
'  Get the E-Mail Address     *
'**********************************************************************
        ParamPosition = (ParamStop + 1)
        ParamStop = Instr(ParamPosition, URLString, "&")
        If ParamStop = 0 Then
                ParmContinue = 0
                ParamLen = (URLLength - ParamPosition) + 1
        Else
                ParmContinue = 1
                ParamLen = (ParamStop - ParamPosition)
        End If
        email = Mid(URLString, ParamPosition,   ParamLen)

'**********************************************************************
'  Get the Company Name *
'**********************************************************************
        ParamPosition = (ParamStop + 1)
        ParamStop = Instr(ParamPosition, URLString, "&")
        If ParamStop = 0 Then
                ParmContinue = 0
                ParamLen = (URLLength - ParamPosition) + 1
        Else
                ParmContinue = 1
                ParamLen = (ParamStop - ParamPosition)
        End If
        company = Mid(URLString, ParamPosition,         ParamLen)

Hope this helps.
-JS






_______________________________________________
This is the Lotus Domino on the iSeries / AS400 (DOMINO400) mailing list
To post a message email: DOMINO400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/domino400
or email: DOMINO400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/domino400.