Dim ns As New NotesSession
locinfo$ = ns.GetEnvironmentString("Location", True)
parseloc = Split(locinfo$, ",")
curloc$ = parseloc(0)
Dim db As NotesDatabase
Set db = ns.GetDatabase("", "names.nsf")
Dim vw As NotesView
Set vw = db.GetView("Locations")
Dim doc As NotesDocument
Set doc = vw.GetDocumentByKey(curloc$, True)
loctype$ = doc.LocationType(0)
Print loctype$