Function WriteLogDoc(Message As String)
	
	Dim logdoc As notesdocument
	Set logdoc = archivedb.CreateDocument
	
	logdoc.form = "ArchiveLog"
	logdoc.Runtime = runtime
	logdoc.doctime = Cstr(Now)
	logdoc.Type = "Batch Archived" 
	logdoc.User = User
	logdoc.message = message
	Call logdoc.Save( False, False )
	
End Function