LotusScript

Sub Click(Source As Button)Dim S As New NotesSession
Dim db As NotesDatabaseSet db = s.CurrentDatabase
Dim v As NotesViewSet v = db.GetView("VEV")
Dim w As NotesUIWorkspaceSet w=New NotesUIWorkspace
Dim uidoc As NotesUIDocumentSet uidoc=w.CurrentDocument
Dim doc As notesdocumentSet doc=uidoc.Document
Dim ventry As Stringventrydef=doc.MRef(0)
Dim ventry As NotesViewEntrySet ventry=v.GetEntryByKey(ventrydef)
Msgbox "The total number of movies in "

(wow this is so not amazing)