'This code allows us to include Keywords in the title without displaying those keywords at view time
	dim StartKeywords, EndKeywords
	StartKeywords=instr(1,document.title,": [")
	If StartKeywords > 0 then
		document.title = Left(document.title,StartKeywords-1)
	End If