Программные коды диалогового окна

Программные коды диалогового окна, которое поддерживает модальный диалог

<HTML>
<HEAD>
<TITLE>Диалоговое окно</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub document_onload
      document.T1.value="T1"
End Sub
Sub B2
      T1.value=T3.value & "  " & T1.value & "  " & T2.value
      window.returnValue=document.all.T1.value
      window.close()
End Sub
</SCRIPT>
</HEAD>
  <BODY STYLE="margin: 0.2in">
     <H5>На этой странице организован ввод анкетных данных пользователя,
               которые будут переданы для анализа на предыдущую страницу в виде
               собранного текста.</H5>
               Пожалуйста,введите: имя, отчество, фамилию<BR><BR>
           <INPUT TYPE="TEXT" NAME="T1" SIZE=18 >_Имя<BR>
           <INPUT TYPE="TEXT" NAME="T2" SIZE=18 >_Отчество<BR>
           <INPUT TYPE="TEXT" NAME="T3" SIZE=18 >_Фамилия
      <P>
         <BUTTON onClick="B2()">
             <H5 STYLE="color:red">Закрыть окно и сохранить данные</H5>
        </BUTTON>
      </P>
  
<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>