Function ToolTip(Id)
	if ((document.all("ToolTipObj")) is nothing) then exit function
	
	dim XMLDoc, Root
	Set XMLDoc = CreateObject("microsoft.xmldom")
	XMLDoc.async=false
	
	XMLDoc.load("ToolTip.aspx?id=" & Id)
	Set Root = XMLDoc.documentElement
	
	If root is nothing Then Exit Function
	
	if document.all("ToolTipObj").style.display = "" then
		CloseToolTip()
	end if
	
	Dim HTML
	HTML = "<b style=""cursor:hand"" onclick=""CloseToolTip()"">X</b>&nbsp;&nbsp;&nbsp;"
	
	Dim Word
	Word = Root.selectSingleNode("WORD").text
		
	Dim Link
	Link = Root.selectSingleNode("LINK").text
	if Link <> "" then
		HTML = HTML & "<a href=""" & Link & """><font color=""black""><b>" & Word & "</b></font></a>"
	else
		HTML = HTML & "<b>" & Word & "</b>"
	end if
	
	HTML = HTML & "<table cellspacing=0 cellpadding=0 height=""2""><tr><td></td></tr></table>" & Root.selectSingleNode("TEXT").text
			
	document.all("ToolTipObj").innerHTML = HTML
	document.all("ToolTipObj").style.left = window.event.X
	document.all("ToolTipObj").style.top = window.event.Y
	document.all("ToolTipObj").style.display = ""
	
	if ToolTipObj.offsetLeft + ToolTipObj.offsetWidth > document.body.clientWidth then
		ToolTipObj.style.left = document.body.clientWidth - ToolTipObj.offsetWidth - 5 
	end if
		
	if ToolTipObj.offsetTop + ToolTipObj.offsetHeight > LastObject.offsetTop then
		if ((document.all("EmptyTable")) is nothing) then exit function
		EmptyTable.height = (ToolTipObj.offsetTop + ToolTipObj.offsetHeight) - LastObject.offsetTop 
	end if
End Function

Function CloseToolTip()
	if not((document.all("ToolTipObj")) is nothing) then
		ToolTipObj.style.display="none"
	end if
	if not((document.all("EmptyTable")) is nothing) then
		EmptyTable.height = 1
	end if
End Function

Function MakeToolTipEnabled(Text)
	Dim Text1
	Text1 = replace(Text,"<tip ","<span style=""font-style:italic; color=#AB7C17; cursor:help  ;"" onclick=""javascript:ToolTip(this.id)"" ")
	Text1 = replace(Text1,"</tip>","</span>") 
	MakeToolTipEnabled = Text1	
End Function' VBScript source code