gibts sowas wie @GETURL?

[Matthias Suttner]

Hallo,

ich hab ein kleines webfähiges NSF (Notes/Domino 5.0. indem ich jetzt gerne die URL abfragen möchte, die im Browser steht.

Kann mit jemand weiterhelfen?

Vielen Dank
Matthias

[Rob Green]

such mal bitte in der Designer Help nach "*Query_String*"..findest u.a. ein Doc, dass die CGI Variablen von Lotus Notes listet.

Dabei ist dieser String. Zu verwenden als Feld in einer Maske.

dazu die Hilfe:

Wenn ein Feld nach einer CGI-Variable benannt wird, kopiert Domino den Feldwert aus der CGI-Umgebung und setzt ihn in das Feld ein. Diese Funktion ist für "Berechnet zur Anzeige"-Felder und zur Bestimmung von "Verbergen wenn"-Bedingungen nützlich.
  1.   Erstellen Sie ein Feld, und geben Sie ihm den Namen einer CGI-Variablen.
Wenn Sie beispielsweise die IP-Adresse des Benutzers mit Hilfe der Maske erfassen möchten, fügen Sie ein Feld mit dem Namen Remote_Adr in die Maske ein.
  2.   Wählen Sie die Eigenschaften "Vorschau zum Bearbeiten" und "Geöffnet zum Bearbeiten" des Feldes "Verbergen wenn", damit Benutzer darin keine Informationen eingeben können.

und

In LotusScript and Java agents, you can get the arguments by parsing the Query_String item in the document returned by DocumentContext or getDocumentContext. Query_String contains the entire URL command that started the agent.

und als Bsp:

Code

This agent parses Query_String to extract one argument, which must be "open" or "closed." It must be run with an OpenAgent URL command.
Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim context As NotesDocument
    Dim arg As String
    Set context = s.DocumentContext
    arg = s.DocumentContext.Query_String(0)
    p1 = Instr(arg, "&")
    If p1 = 0 Then
        Print "Need argument 'open' or 'closed'"
    Else
        arg = Lcase(Mid$(arg, p1 + 1))
        If arg <> "open" And arg <> "closed" Then
            Print "Argument must be 'open' or 'closed'"
        End If
    End If
    Set db = s.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetFirstDocument
    Do While Not(doc Is Nothing)
        doc.Status = arg
        Call doc.Save(False, True)
        Set doc = dc.GetNextDocument(doc)
    Loop
    Print "<B>Status changed to '" & arg & "' in all documents"
End Sub