Dim session As New NotesSession
	
	Dim db As New NotesDatabase("", "names.nsf" )
'	Dim db As NotesDatabase
	
	Dim view As NotesView
	Dim count As Integer
	Dim doc As NotesDocument
	Set view = db.GetView(Locations)
	
	Set doc = view.GetFirstDocument
	
	While Not ( doc Is Nothing )
		
		
		Dim item1 As NotesItem
		Dim item2 As NotesItem
		Dim item3 As NotesItem
		Dim item4 As NotesItem
		Dim item5 As NotesItem
		Set item1 = doc.ReplaceItemValue( "$SavedAddresses","")
		Set item2 = doc.ReplaceItemValue( "$SavedPorts","")
		Set item3 = doc.ReplaceItemValue( "$SavedServers","")
		Set item4 = doc.ReplaceItemValue( "$SavedDate","")
		Set item5 = doc.ReplaceItemValue( "$SavedTriedDate","")
		Call doc.Save( True, True )
		
		Set doc = view.GetNextDocument( doc )
		
	Wend