Sub IMG_TDA_onmouseover
	on error resume next
	IMG_cendre_bleue.style.display="inline"
End Sub


Sub IMG_TDA_onmouseout
	on error resume next
	IMG_cendre_bleue.style.display="none"
end Sub


Sub document_onmousemove
	on error resume next
	IMG_cendre_bleue.style.posLeft=window.event.clientX
	IMG_cendre_bleue.style.posTop=window.event.clienty-50
	   
End Sub



Sub MenuList_onmouseover
	on error resume next
	MenuContent.style.display="inline"
End Sub

Sub MenuList_onmouseout
	on error resume next
	MenuContent.style.display="none"
End Sub

Sub document_onmouseover
	on error resume next
	if left(window.event.srcElement.id,3)="lnk" then
	window.status = right(document.getElementById(window.event.srcElement.id).src,7)
		if right(document.getElementById(window.event.srcElement.id).src,7) = "off.jpg" then
			document.getElementById(window.event.srcElement.id).src = "images/" & window.event.srcElement.id & "_on.jpg"
		else
			document.getElementById(window.event.srcElement.id).src = "images/" & window.event.srcElement.id & "_off.jpg"
		
		end if
	End if

End Sub

Sub document_onmouseout
	on error resume next
	if left(window.event.srcElement.id,3)="lnk" then
		document.getElementById(window.event.srcElement.id).src = "images/" & window.event.srcElement.id & "_off.jpg"
	End if
End Sub


Sub ShowFaille_onclick
	on error resume next
	imgLemptegyFaille.src="images\lav_auv_faille_anim.gif"
	PicComment.innerText = ShowFaille.innerText
End Sub

Sub ShowScories_onclick
	on error resume next
	imgLemptegyFaille.src="images\lav_auv_scories.jpg"
	PicComment.innerText = ShowScories.innerText

End Sub


Sub ShowFaille_onmouseover
	on error resume next
	ShowFaille.style.backgroundcolor="darkOrange"
	ShowFaille.style.color="white"
End Sub

Sub ShowFaille_onmouseout
	on error resume next
	ShowFaille.style.backgroundcolor="white"
	ShowFaille.style.color="darkOrange"
End Sub

Sub ShowScories_onmouseover
	on error resume next
	ShowScories.style.backgroundcolor="darkOrange"
	ShowScories.style.color="white"
End Sub

Sub ShowScories_onmouseout
	on error resume next
	ShowScories.style.backgroundcolor="white"
	ShowScories.style.color="darkOrange"
End Sub