function AfficheInfoLogo(clt,index)

	clt.style.cursor = "help"

	dim tab
	dim tab1
	dim texte

	tab = "<table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100"" height=""60"" bgcolor=""#006895""><tr>"
	tab = tab & "<td><div align=center><font size=""2"" face=Arial, Helvetica, sans-serif color=#FFFF00>"
	if index = 1 then texte = "Espace adhérents"
	if index = 2 then texte = "Visiter le site"

	tab1 = "</font></div></td></tr></table>"

	texte = tab & texte & tab1
	
	divInfo.style.visibility = "visible"
	divInfo.style.left = window.event.x + document.body.scrollLeft - 50
	divInfo.style.top = window.event.y + document.body.scrollTop + 10
	divInfo.innerHTML = texte
	
end function

function CacheInfoLogo()
	divInfo.style.visibility = "hidden"
	divInfo.innerHTML = ""
end function