<p>In a LotusScript Agent that is being run via WebQueryOpen, how do you get the name of the current server?</p>

```
```
Set s = New NotesSession
Set db = s.CurrentDatabase

If db.Server <> "" Then
  Set sName = New NotesName(db.Server)
Else
  Set sName = New NotesName(s.Username)
End If
```
```