Function fnExpandAll(img)
	If img.title = "Expand All" Then
		img.src = "common/icoMinus.gif"
		img.title = "Collapse All"
		For Each obj In document.all
			If Left(obj.id, 7) = "tblInfo" Then
				obj.style.display = "block"		
			End If
			If Left(obj.id, 7) = "imgInfo" Then
				obj.src = "common/icoMinus.gif"		
				obj.title = "Collapse"		
			End If
		Next
	Else
		img.src = "common/icoPlus.gif"
		img.title = "Expand All"
		For Each obj In document.all
			If Left(obj.id, 7) = "tblInfo" Then
				obj.style.display = "none"
			End If
			If Left(obj.id, 7) = "imgInfo" Then
				obj.src = "common/icoPlus.gif"		
				obj.title = "Expand"		
			End If
		Next
	End If
End Function