Code for a Web login button

Here is the code for a login button for a Web application that permits Anonymous access.

Here is the code for a login button for a Web application that permits Anonymous access. Simple create a hidden agent with this LotusScript code. Then use a button to call the agent. For example, if your agent is called "(Login)", you would call it with this formula command:

@Command([ToolsRunMacro]; "(LogIn)")

Set the button to hide-when the username is "Anonymous". Finally, if the application uses frames, you may want to set the button to open in a new window to avoid nesting a frameset within a frameset.


Code for the agent: Sub Initialize Dim db As Notesdatabase Dim session As New NotesSession Set db = session.CurrentDatabase Dim servername As New Notesname (db.Server) Dim vEvaluate As Variant Dim dbWebPath As String vEvaluate =Evaluate(|"/"+@ReplaceSubstring(@Subset(@DbName;-1);"";"/")+"/";|) dbWebPath = vEvaluate(0) Print "[http://" + servername.common + dbWebPath + "?OpenDatabase&login" + "]" End Sub

Dig Deeper on Domino Resources - Part 3

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

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 ...

SearchDataCenter

SearchContentManagement

Close