例: JavaScript in HTML

次は、フォーム上でパススルー HTML として記されたテキストです。名前を要求するダイアログボックスを表示し、LoginName フィールドに挿入します。このテキストはフォーム上の LoginName フィールドの後に入力する必要があります。
```
<SCRIPT LANGUAGE="JavaScript">
    n = prompt("Domino login name?", "Anonymous")
    document.forms[0].LoginName.value = n
</SCRIPT>
```
次のパススルーテキストは、「javascript:」プロトコルによって URL に JavaScript を挿入するアンカータグを使用しています。
```
<A HREF="javascript:alert('You are Anonymous unless you supply a login name')">Read me</A>
```
次のパススルーテキストには、ユーザー名が計算結果として含まれます。計算結果を挿入するには、[作成] - [計算結果テキスト] を選択し、「@UserName」を式に指定します。
```
<SCRIPT LANGUAGE=JavaScript>
    alert("Your user name is <Computed Value>")
</SCRIPT>
```

次の LotusScript エージェントは JavaScript をブラウザに送信することで終了します。JavaScript はメッセージを表示し、次に「Main View」をロードします。

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim arg As String, p1 As Long
    arg = s.DocumentContext.Query_String(0)
    p1 = Instr(arg, "&")
    If p1 = 0 Then
        Print "Need argument 'Open' or 'Closed'"
        Exit Sub
    Else
        arg = Lcase(Mid$(arg, p1 + 1))
        If arg <> "open" And arg <> "closed" Then
            Print "Argument must be 'Open' or 'Closed'"
            Exit Sub
        End If
    End If
    arg = Ucase(Left$(arg, 1)) + Right$(arg, Len(arg) - 1)
    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 "<SCRIPT LANGUAGE=JavaScript>"
    Print "alert(""Status changed to '" & arg & _
          "' in all documents"")"
    Print "location.href = ""/Web+test.nsf/Main+View?OpenView"""
    Print "</SCRIPT>"
End Sub
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 "<SCRIPT LANGUAGE=JavaScript>"
    Print "alert(""Status changed to '" & arg & _
          "' in all documents"")"
    Print "location.href = ""/Web+test.nsf/Main+View?OpenView"""
    Print "</SCRIPT>"
End Sub