function HideInfoMessages()
	Dim e, coll

	'Set coll = document.all.tags("TABLE")
	Set coll = document.getElementsByTagName("TABLE")	

	if not coll is nothing then
		for each e in coll
			if (left(lcase(e.classname), len("XsCompactMessage")) = lcase("XsCompactMessage") _
			or left(lcase(e.classname), len("XsBoxedMessage")) = lcase("XsBoxedMessage"))_
			and e.getAttribute("HideOnSubmit") = "true" then
				e.style.display = "none"
			end if
		next
	end if
end function

function AttachFormEvents()
	on error resume next
	set fpHideInfoMessages = getRef("HideInfoMessages")
	' theForm: variable global cargada por .NET, con referencia al formulario de la página.
	call theForm.attachEvent("onsubmit", fpHideInfoMessages)
end function

AttachFormEvents