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








As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.