<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="VBScript"><!--

DIM tip_visivel 'Cria nova varivel
tip_visivel = FALSE

'---Rotina chamada quando o mouse se move por sobre 
'---qualquer elemento da pagina
sub body1_onMouseOver()
  if (ScriptEngineMajorVersion >= 3) then  '---nao executar se nao IE 4.0
    DIM element 'Cria nova varivel
    set element = Nothing
    if (window.event.srcelement.tagname = "A") then
      set element = window.event.srcelement
    else
      if (window.event.srcelement.parentElement.tagname = "A") Then
        set element = window.event.srcelement.parentElement
      End IF
    End IF
    if ( element IS Nothing) then
    else '---element tem o elemento associado ao evento gerado
      if ( element.name <> "" ) then 
        '---torna div_dica visivel, posiciona a direita do mouse,
        '---e coloca dentro dele o name de element
        div_dica.style.visibility=""
        div_dica.style.WIDTH=300
        div_dica.style.TOP = window.event.y + 22
        div_dica.style.LEFT = window.event.x - 55
        texto_dica.innerHTML = element.name
        tip_visivel = TRUE
      end if
    end if
  end if
End Sub
Sub body1_onMouseMove()
  if (ScriptEngineMajorVersion >= 3) then
    if (tip_visivel = TRUE) then
      '---move div_dica conforme o movimento do mouse
      div_dica.style.TOP = window.event.y + 22
      div_dica.style.LEFT = window.event.x - 55
    end if
  end if
End Sub

sub body1_onMouseOut()
  if (ScriptEngineMajorVersion >= 3) then
    DIM element
    set element = Nothing
    if (window.event.srcelement.tagname = "A") then
      set element = window.event.srcelement
    else
      if (window.event.srcelement.parentElement.tagname = "A") Then
        set element = window.event.srcelement.parentElement
      End IF
    End IF
    if ( element IS Nothing) then
    else
      '---se saiu do elemento que gerou o evento, apaga div_dica
      div_dica.style.visibility="hidden"
      tip_visivel = FALSE
    end if
  end if
End Sub

--></script>

<title>DHTML - WebMasters</title>
</head>

<body bgcolor="#FFFFFF" topmargin="0" id="body1" text="#000000" link="#000080"
vlink="#C0C0C0" alink="#EEB111">

<p align="center"><!--webbot bot="HTMLMarkup" startspan --><div id=div_dica style="font-family:arial;font-size:12;POSITION:absolute;text-align:xcenter;padding:3;LEFT:70;color:#000099;background:#FFFFCC;WIDTH:12;VISIBILITY:hidden;border:solid black;border-width:2"><center><table><tr><td><div id=texto_dica style="font-family:arial;font-size:12"></div></td></tr></table></center>	        </div>  <!--webbot bot="HTMLMarkup"
endspan --></p>

<p align="center"><strong><font size="5" face="Arial" color="#808080">Link com Descrio</font><font
size="5" color="#0080FF" face="Arial"><br>
</font></strong><font face="Arial"><br>
<br>
</font></p>

<p align="center"><font color="#400080" face="Arial" size="7"><strong><a
name="O maior concurso de Web Sites do Brasil. Indica todo ano os melhores sites das diversas categorias."
href="http://www.ibest.com.br" target="_blank">IBest</a><br>
<br>
</strong></font></p>

</body>
</html>
