There is an agent that will redirect you to the bottom of a view...
The way to use it :
<a href='/server/base.nsf/aa_eofView?openAgent&view=viewalias'$gt;Jump to end!</a>
where :
server is the name of your domino server,
base.nsf is the name of the base containing both the view and the agent, aa_eofView is the name of this agent, and viewAlias is the name of your view... PS : getParam and webSyntax are functions used to parse the query string and to format the database file path.
Option Public
Option Declare
Sub Initialize
On Error Goto errorLabel
Dim s As New notesSession
Dim sdoc As notesDocument
Set sdoc = s.documentContext
Dim db As notesDatabase
Set db = s.currentDatabase
Dim viewName As String
viewName = getParam ("&view=", sdoc.query_string(0))
Dim view As notesView
Set view = db.getView (viewName)
If view Is Nothing Then
Print "Error : view not found<br>"
Print "<a href='javascript:history.go(-1)'>back</a>"
Exit Sub
End If
Print "[/"+webSyntax(db.filepath)+"/"+viewName+"?
openView&start=";Trim$(Str$(view.topLevelEntryCount));"]"
Exit Sub
errorLabel:
Print "Error : ";Error$(Err);" at line ";Erl
Print "<a href='javascript:history.go(-1)'>back</a>"
Resume endLabel
endLabel:
End Sub
Function getParam (keyname, query) As String
Dim rstr As String
Dim pos As Integer
If (Left$(keyname,1)<>"&") Then
keyname = "&"+keyname
End If
pos = Instr(Ucase(query), Ucase(keyname))
If pos>0 Then
rstr = Right$(query, Len(query)-pos+1-Len(keyname))
pos=Instr(rstr, "&")
If pos>0 Then
rstr=Left(rstr,pos-1)
End If
getParam = rstr
Else
getParam=""
End If
End Function
Function webSyntax(s) As String
Dim pos As Integer
webSyntax = s
pos = Instr(webSyntax,"")
While pos>0
Mid$(webSyntax,pos,1)="/"
pos = Instr(webSyntax,"")
Wend
pos = Instr(webSyntax," ")
While pos>0
Mid$(webSyntax,pos,1)="+"
pos = Instr(webSyntax," ")
Wend
End Function
This was first published in April 2001