Photo With Link In Lotusscript

Prepare the following form with the:
1) EmpName field, which is Text, Editable;
2) EmpLastName field, which is Text, Editable;
3) SaveOptions field, which is Text, Computed with Value: "0";
4) Save&Close button with formulas:
@Command([FileSave]);
@Command([FileCloseWindow])
5) WebQuerySave object contains the agent run formula:
@Command([ToolsRunMacro]; "Agent5")
The Agent5 code is given below:
|----------------------------------------------------------------------|
| Sub Initialize |
| Dim session As New NotesSession |
| Dim doc As NotesDocument |
| Dim person As String |
| Dim person1 As String |
| Dim path As String |
| Set doc = session.DocumentContext |
| |
| person = doc.EmpName(0)+"%20"+doc.EmpLastName(0) |
| person1 = doc.EmpLastName(0)+"%20"+","+"%20"+doc.EmpName(0) |
| |
| link = "<a href = ""http://www.desl.lv/names.nsf/People/" |
| +person1+"?OpenDocument"">" |
| path = "<IMG SRC = ""/TipsByPavels.nsf/" |
| +person+".jpg?OpenImageResource"">" |
| |
| Print"<body bgcolor=""#C0C0C0"">" |
| Print "<center>" |
| Print "<h1>Query Results</h1>" |
| Print "<table border=1 bordercolor=""#800080"">" |
| Print "<tr>" |
| Print "<td align=""center"" bgcolor=""#800080"">" & link & path |
| &"</a></td>" |
| Print "</tr>" |
| Print "<tr>" |
| Print "<td align=""center"" bgcolor=""yellow"">" & person & |
| "</td>" |
| Print "</tr>" |
| Print "</table>" |
| Print "<p> </p>" |
| Print "Click on photo to open document in People view." |
| Print "</center>" |
| End Sub |
|----------------------------------------------------------------------|



6) All the employees photos must be saved in Resources/Images of the same
database with names as First Last.jpg.
When opened the form in web will look like this:

(Embedded image moved to file: pic09836.pcx)
Entering the employees First and Last names and clicking on the Save&Close
button the next code-generated form is presented:

(Embedded image moved to file: pic18756.pcx)
Click on the photo to link to the Person form of this employee in NAB
database:

(Embedded image moved to file: pic22317.pcx)
This was first published in November 2000

Dig deeper on Domino Resources

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close