Hallo,
dieser Agent wird im WebQueryOpen einer Form ausgeführt:
<START>
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim nab As NotesDatabase
Dim nabdoc As NotesDocument
Dim nabview As NotesView
Set db = session.CurrentDatabase
Set doc = session.DocumentContext
Set nab = session.GetDatabase("", "names.nsf")
Set nabview = nab.GetView("($VIMPeople)")
Set nabdoc = nabview.GetDocumentByKey(doc.fdAutor)
If Not nabdoc Is Nothing Then
If nabdoc.HTTPPassword(0) = "(2A19F85E4E2DC073EC3350581116EDDB)" Then
Print "<SCRIPT LANGUAGE=JavaScript>"
Print "alert(""Bitte ändern Sie Ihr Passwort!"")"
Print "history.back(1)"
Print "</SCRIPT>"
End If
End If
End Sub
<ENDE>
Warum bekomme ich das JS-Fenster nicht ausgegeben, obwohl die Passwortabfrage true ergibt?
