Скрытие объектов

Коды программы приложения скрытия объектов и управления их расположением

<HTML>
<HEAD>
<TITLE>Скрытие объектов</TITLE>
<STYLE TYPE="text/css">
#m1{background-color:Yellow;color:navy;position:absolute;top:35;left:90}
.a1 {position:absolute;top:200;left:290;}
.a2 {position:absolute;top:100;}
.a3 {position:absolute;top:300;left:200;}
.a4 {position:absolute;top:280;left:190;color:Yellow;}
</STYLE>
<SCRIPT Language="VBScript">
  Sub d1_OnClick
R1.style.visibility="visible"
Ob2.style.visibility="visible"
T1.style.visibility="visible"

Ob1.style.visibility="visible"
B2.style.visibility="hidden"
  End Sub

Sub B1_OnClick
  if T1.value="" then
  Ob2.value="Приложение не готово"
  T1.size=40
  T1.value="Вы не ввели фамилию"
  else
  Ob2.value="СПАСИБО, " + T1.value
  end if
End Sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR=Blue>
<DIV ID=m1 Style="visibility:hidden">
НАЖМИТЕ НА КНОПКУ И ВЫ УВИДИТЕ РАЗЛИЧНЫЕ ВАРИАНТЫ СКРЫТИЯ ОБЪЕКТОВ
</DIV>
    <Input Type=Button Name=B2 ID=d1 Value="Просмотр объектов"
                                             onmouseover="m1.style.visibility='visible'" 
                                             onmouseout="m1.style.visibility='hidden'">
    <IMG SRC="Images/Ris1.gif" Class=a1 Name=R1 Style="visibility:hidden">
    <INPUT Type=Button Value="Открыть новую страницу" Name=B1 Class=a2 ID=Ob2 Style="visibility:hidden">
<DIV ID=Ob1 Class=a4 Style="visibility:hidden">
    Введите свою фамилию<BR>
</DIV>
    <INPUT TYPE=Text Class=a3 Name=T1 Value="" Style="visibility:hidden">
<P Style="font-size:12pt; color:yellow" align=center>

<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>